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C! Duque de Sesto, 50. 28009 Madrid 
Tel.: (91) 274 53 80 

(Metro O'Donnell o Goya) 

Aparcamiento gratuito en Eelipe II 

J Ofertas en software: 2 programas al precio de 1 y adem6s regalo fin de curso una calculadora completamente gratis, iiAsombroso!! L 
Verdad? 
I 

BAT MA N 2.300 
ROCK'N LUCHA 2.300 
YIER AR KUNG FU 2.300 
THE WAY OF THE TIGER 2.300 
WEST BANK 2.100 
CAMELOT WARRIORS 2.300 
RAMBO 2.300 
WORLD CUP (DISCO) 3.300 
MILLION II (DISCO) 3.300 

tas. KUNG-FU MASTER 2.300 ptas. 
tos. SABOTEUR 2.300 ptos. 
tas. PING PONG 2.300 ptas. 
tos. MILLION II 0000 ptos. 
gtos. OLE TORO 2.300 ptas. 
tas. TURBO ESPRIT 2.100 ptas. 
gtas. SABRE WULF 1.650 ptas. 
tas. BATALLA DE LOS PLANETAS 2.100 ptas. 
tas. SABOTEUR-COMBAT LINX DISCO 3.300 ptas. 

RAMBO-MATCH DAY (DISCO) 3.300 ptos. 

SOFTWARE DE REGALO (OFERTA 2×1) 
DECATHLON BEACH HEAD SOUTHERN BELLE 
DRAGONTORC 

LAPIZ OPTICO SINTETIZADOR DE VOZ EN 
3.295 PTAS. CASTELLANO 
7.650 PTAS. 
CASSEI"rE ESPECIAL ORDENADOR 
5.295 PTAS. AMPLIACION DE MEMORIA ANTA 64 K.3 
12.500 PTAS. 

IMPRESORAS 
L2O°/o DE DESCUENTO SOBRE P.V.P. I 
CABLE SEPARADORES 6128 1.975 I [ CABLE SEPARADOR 8256 2.900 
INTERFACE RS232 9.265 I I 2.5oo 
CINTA VIRGEN C15 69 I LDISKETTES 3" 990 

IILLEGARON LAS REBAJAS DE VRANO A MICRO 1!! 

QUICK SHOT I OFERTAS EN JOYSTICKS 1.395 
QUICK SHOT II 1.695 
QUICK SHOT V 1.695 

PEDIDOS CONTRA REEMBOLSO SIN NINGUN GASTO DE ENVIO TEL. (91) 274 53 80 

O E$CRIBIENDO A: MICRO-1. CI DUQUE DE SESTO, 50. 28009 MADRID. 
Tiendas y distribuidores grandes descuentos. 
Dirigirse a Diproimsa. CI Galatea, 25. Tel. (91) 742 20 19 6 742 79 68 
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Aria II • Ndmero 47 • 22 al 28 de Julia de 1985 
160 ptas. (incluido h V.A) 
Canarias, 155 ptas. + 10 ptas. sobretasa a#rea. 
Ceuta y Melilla, 155 ptas. 

Primeros Pasos( 
Semana o semana descubrimos nuevas sutilezas de/ 
lOCOMOTIVE de ,MSTRAD. En esta ocas/6n nos 
ocupamos de un tema donde vuelve a brillar Ja 
potencia de este Bask ClUe no de/a de 
serprendernos: se trata de/lratamiento de cadenas o 
funciones de Iibrer/a, clue dir/an /as entendidos. La 
fragmenlaci6n de cadenas alfanumricas es e/ primer 
tema. Estamos conventicles de clue disfrutar/s en 
esta nueva parce/a de/Basic. 

• ,' i Programaci6n 
estructurada 

Los hay que piensn que programar es senfarse 
delanle de un ordenador y ponerse a tee/ear coma 
una fiera. No pretendemos cambiar /as ideas a 
nadie, coda cua/ en su case que barra coma quiera. 
Sin embargo, hablando ob/etivamente, un programa 
estrucluredo y estudiEdo previamente a conciencia, 
liene touches rods posibi/idades de Ex#o y correci6n 
que cua/quier otto que no haya side dise#ado de 
esla farina. Primero, anfes de etegh" tu mtodo, lee 
este artcuto: despuEs decide. 

Hace ya touches ndmeros, fratamos cdmo utilizer 
/as venfanas en el Amstrad,. ahora vofvemos de 
nuevo sabre el tema, pero en esta ocasi6n /o 
enalizamos ba/o ta siempre veloz perspecliva de/ 
cddigo mquina, 

Serie Oro 

La invasi6n se ha hecho rea/idad; bombarderos y 
cazas se hen lanzado en ataque conlinuo canlra tu 
base. Inlenla contrarrestar /a invasion con lus misiles 
tierra-aire, te/edirigidos y convencionales, y que el 
cielo se ti#a de roio. 

I 

ProgramAcd6n 
Si algOn defecto hay que encontrarle al Basic, ste 
seHa, sin dude, fa ausena'a de eslructuras de delos 
dise#ados par e/ propio usuario. En este articufo 
estudiamos c6mo con un pace de imaginaciSn y 
mtodo, es posible simu/ar este ripe de e#ructuras 
que acercan et programa de farina redone/, un 
pace rods a/engua/es rods evo/udonados. 
Comenzamos estudiando /as plies, una de/as 
estruduras rods uli/izadas y versdti/es dentro de/a 
programaci6n. 
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Ya est 
a la venta 
el no-2 

HOBBY sale este mesa la calle con un mohtbn 
de temas ins61itos que seguro te apasionardn. 
/,Sabias, pot ejemplo, que puedes ser un campe6n 
de baloncesto aunque midas menos de 1,80?/,O que 
es posible domar una planta carnivora y medir sus 
estimulos? HOBBY te enseba tambin cosas tan dispa- 
res como los pasos a seguir para irte a un pueblo aban- 
donado o el arte de volar cometas. Y, demds, todos los 
meses regalamos una cadena de mOsica. 
Ten un HOBBY todos los meses. 
iYa estd en tu kiosco el n. ° 2! 



Dos NUEVO$ 
PERIFERICO$ 
PAPA TU AMSTRAD 

Este iuego naci6 originariamente 
para Spectrum cinta, y ahora ya te- 
nemos en el mercado la versi6n dis- 
co. 
Con este juego podemos vivir una 
divertida partida de flipper, con la 
particularidad interesante de pocler 
jugar a cuatro mandos. AI igual que 
en los m6quinas de los bares, el Pin- 
ball Wizard cuenta con puntuaciones 

especiales, bonos e incluso bola ex 
tra, toclo ello con la ventaja de aho- 
rrarse los cinco duretes de la parti- 
da. 
Este entretenido juego pertenece a 
la casa ACE Software yes distribui- 
do por MICROBYTE. 

NDFSCOMP nos 
informa del lanzamiento de un nue- 
vo joystick y de una nueva impreso- 
ra para los Am$1rod CPC. 
El AMSTICK, asi se llama el joys- 
tick, es de s61ida construcci6n y sua- 
ve manejo. Va provisto de bot6n de 
disparo en la palanca de mando, asi 
como en la base que dispone de po- 
tentes ventosas que le dar6n una se- 
gura sujeci6n. 
Este joystick es compatible con los 
ordenadores Sinclair, Atari, Commo- 
dore, etc. 
Y si bien esto es interesante, Io que 
le convierte en verdaderamente ape- 
ticible en su precio, 1.000 ptas. (IVA 
incluido) que le harn super compe- 
titivo en el mercado: 
Como de super competitiva se pue- 
de catalogar la DMP-2000, impreso- 
ra que viene a ser un pelclao ms 
arriba en la gama de los disponibles 
para los CPC. 
Se puede conectar a cualquier otro 
ordenador que tenga interface pao 
ralelo Centronics, yes compatible 
con el standar EPSON. 
Su sistema de impresi6n es cle pun- 
to a punto en diferentes densiclades, 
dispone de tipos de letra estndar, 
61ite, cursiva, alta calidad, etc. 
La velocidad cle impresi6n es de 
105 caracteres por segundo. Admi- 
te papel continuo de 114 mm a 254 
mm de ancho, as/como hojas suel- 
tas de 102 mm a 24"1 mm cle ancho. 
La carga del papel es frontal y es- 
t dotada de patas abatibles que 
permiten colocar papel debajo de 
ella para ahorrar espacio. 

AMSTRAD AL VOLANTE: 
EL EQUIPO AMSTRAD EN CABEZA 
DEL CAMPEONATO 

El equipo AM$- 
TRAD participante en el Campeona- 
to de Espaa de Producci6n, a tra- 
v6s de su piloto <Correcaminos se 
encuentra actualmente en primera 
posici6n del Campeonato de Veloci- 
dad en Circuitos, tambi6n denomina- 
do de Producci6n. 
Tras cuatro pruebas celebradas en 
Jerez, Jarama, Toleclo y Puerto Ba- 
ngs, los clasificaciones obtenidas (tres 
segundos puestos y un primero) dan 
iclea de la profesionalidad de todo 
el equipo, que bajo la direcci6n de 
AMSTIAI y la preparaci6n t6cnica 

de Cecilio Muiz, ha hecho posible 
poder afrontar la segunda parte del 
campeonato con una cierta tranqui- 
lidad cara al resultado final. 
El Renault 11 Turbo, que en un 
principio parecia no poder inquietar 
a sus mcs directos rivales, los Volk- 
swagen Golf GTI preparados por 
RAS, se ha convertido en el coco 
de los potentes coches alemanes, 
siendo en este momento el Onico y 
m6s peligroso rival que encuentran 
en los circuitos. 
En la pr6xima carrera, Calafat, el 
coche del Equipo de Competici6n 
AMSTRAD Espaa, estrenar6 nuevas 
suspensiones con las que esperamos 
pueda poner aOn m6s tierra pot me- 
dio entre sus seguidores. 

r .| 

lil , I 
I " 
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FRAGMENTAClON 
ESTA SERVIDA 

Antao vireos que todo Io que hay en el interior 
de un ordenador, o meior dicho en su memoria, e$ 
una colecci6n de <<ceros y <<unos. Conociendo un 
poquito el sistema binario de numeraci6n, 
pu.dimos pensar que si. cogemos un grupo de elias 
y Io tratamos convementemente obtendr[amos el 

equivalente decimal del ndmero binario que 
habiamos formado. Y as[ es. 

lero nuestro Amstrad 
no se queda ahi. Tambi6n es capaz de trans- 
formar estos conjuntos de <bits activados 
(iguales a 1) o desactivados (valiendo O) en 
unos c6digos que se corresponden con todos 
los caracteres del alfabeto, signos especiales 
-par ejemplo el + - e incluso con simbo- 
los gr6ficos, es Io que Ilamamos ((c6digo As- 
cii>>. 
Agrupando estos <caracteres formamos 
Io que se ha Ilamado cadenas de carac- 
tereso strings. Si son constantes (perma- 
necen siempre igual a Io largo de un progra- 
ma) las denominaremos constantes alfa- 
numricasb y podremos reconocerlas don- 
de veamos una serie de caracteres encerra- 
dos entre comillas, coma par ejemplo: 
"PEPE" 
Cuando, par el contrario, su valor se cam- 
bia con algua instrucci6n Basic dentro de un 
programa, Io suyo es definir una variable de 
este tipo en la que se vayan almacenando los 
grupos de caracteres queen cada momenta 
les vayamos dando. Recuerda c6mo se deft- 
nian dichas variables? 

6 , c.r AMSTIIAD 

Con: 
hombres 
estamos refiriendonos a un espacio de la me- 
maria del ordenador que vamos a reservar pa- 
ra guardar en 1 valores o dabs alfanumri- 
cos (cadena de caracteres). Cada vez que nos 
refiramos a elias, podremos hacerlo con el 
nombre que le hayamos asignado, coma en 
este caso seria <<nombres. 
El signo <<$ que hemos colocado detr6s del 
nombre dado a la variable alfanumrica es 
una especie de etiqueta, con la que le esta- 
mos indicando al ordenador que se trata de 
una cadena de caracteres y no un nOmero. 
Para dar un determinado valor a esta va- 
riable bastaria con poner una instrucci6n tal 
como: 
nombre$ ="PEPE" 
y en la zona de memoria resrvada baio ese 
hombre almacenariamos el valor diterab 
que est6 entre comi[las, o sea, PEPE. 
Con todo esto Jo que pretendemos es reres- 
carJe un poco sus conocimientos, si es menes- 
ter, sobre esfe tipo de variables e intentar con- 
vencerJe de que dentro de un ordenador no 
s61o se pueden almacenar nOmeros como ta- 
les, sino tambin series de ceros y unos (o c6- 
digos) que se corresponden con todos y cada 
uno de los caracteres que esf6n sobre el fe- 
cJado adem6s de un <mont6n, de simbolos 
gr6ficos que le vendr6n muy bien para sus pro- 
pias aplicaciones. 
El Amstrad tiene gran cantidad de senten- 
c/as o funciones que vamos a poder aplicar sa- 
bre este tipo de variables, iNo se ha queda- 
do corto!. Podemos decir que con elias ser6 
posible hacer casi todo Io que se le est6 pa- 
sando par la cabeza en este momenta a cual- 
quier lector inquieto o atrevido. 



Bueno, vayamos al grono. En uno de los ar- 
ticulos de esta secci6n vimos ya una serie de 
elias que suponemos no habr6 olvidado. Co- 
mo iniciativa, vale, pero no es nuestra inten- 
ci6n quedarnos detenidos ahi. Ha Ilegado el 
momento de ampliar todo Io que ya sabia so- 
bre cadenas, si es posible, viendo alguna 
que otra nueva funci6n relacionada con este 
campo tal como le prometimos en su dia. 
Lo primero que haremos ser6 intentar 
((frogmentor o descomponer una de es- 
tas cadenas. Si es la priemra vez que escucha 
esta palabra puede ocurrir que le suene a al- 
go parecido a ((romper o estropear, pero 
no es asi. Es bastante mOs Otil. 
Significa que vamos a seleccionar una par- 
te de una cadena para hacer cualquier cosa 
con ella, inform6ticamente hablando, claro. 
Escogeremos una o varias letras y se las asig- 
naremos a otra variable, las visualizaremos en 
la pantalla o realizaremos un complicado c61- 
culo con elias. 
Vamos a descomponer su nombre, por ejem- 
plo, en diferentes grupos de letras. Por d6n- 
de empezamos? Imaginamos que le parecer6 
muy descabellado el hecho de que hallamos 
decidido comenzar por la primera letra. 
A partir de ella iremos formando conjuntos 
de una, dos, tres, etc .... letras y las escribire- 
mos en la pantalla. Escriba el programa 1 y 
ejecutelo. A conlinuaci6n, analizaremos los re- 
sultados obtenidos. 

Programa uno 

Es muy sencillo, ya que se trata simplemen- 
te de un bucle FOR... NEXT cuya variable de 
control ((indice)) va tomando valores com- 
prendidos entre 1 y la Iongitud del hombre que 
haya tecleado. 
Para calcular el nOmero de letras de su hom- 
bre empleamos, en la linea 50, una funci6n 
que no le ser6 desconocida: 
LEN(nombre$) 
que nos devuelve, cuando la invocamos, la 
Iongitud de la cadena que hay entre los pa- 
r@ntesis 'Recuerdag 
Para hacer la selecci6n, o ((frogment=- 
¢in)), de las letras que deseamos utilizamos, 
como se ve en la linea 70, una nueva funci6n: 
LEFTS(nombreS,nOmero) 
descompone la cadena mombreS en sus dis- 
tintas letras y nos da un valor literal compuesto 
de tantas como indica nOmero tom6ndolas 
a partir de la izquierda. 
Este valor, que tambi6n es una cadena, es 
el que asignamos a ((fragmento$)) en la li- 
nea 70 para despus imprimirla. 
En el programa delimitamos la Iongitud del 
bucle. Adem6s de servirnos para controlar el 
nOmero de veces que repeliremos el cuerpo 
del mismo, tambi6n Io podemos emplear pa- 
ra multitud de cosas. 

Escriba: 
fragmentoS = LEFT$("ABCDE",3) 
y a continuaci6n: 
PRINT fragmento$ 
Qu cadena aparecer6 en la pantalla. 
Analizando paso a paso estas dos Oltimas 6r- 
denes podr6 contestar a esta pregunta. En la 
primera asignamos a la variable fragmento$ 
tantos caracteres del literal BCDIb como 
nos indique el segundo miembro del par6nte- 
sis, o sea, 3. 
A porlir de d6nde comenzamos o coNor . 
Seggn la definici6n de LEFTS Io tenemos muy 
claro: por la izquierdo. Luego la segunda or- 
den nos visualizar6 el fragmento: 
ABC 
Comprendido? 
En nuestro programa el valor del segundo 
((prmetrm de la funci6n -su longitud- 
es el que va tomando la variable de control 
del bucle, Wnlicm, en cada vuelta del mis- 
too. Ir6 incrementndose desde uno, Io que 
dar como resultado una subcadena de una 
sola letra, hasta que alcance la Iongitud total 
de su nombre calculada con LEN. 
Qu6 pasaria si este segundo par6metro su- 
pera el n0mero de letras del literal sobre el que 
aplicamos Io funci6n? Compru6belo teclean- 
do: 
fragmentoS = ("ABC",6) 

I" PEM PF'QGPANA 1 
TO INPUT "UAL E IJ NQMBP .... ,nmb 
40 PF:I NT 
bO FOR indi I TO nnsitud 
70  r agment $=LEFT$ (nmbr e$  
0 PRINT rasmento$ 
0 NEXT 

Ahora estamos intentando asignar 6 carac- 
teres tornados a partir de la izquierda de la 
palabra. C6mo ser6 posible hacerlo si s61o 
tiene 3? Pues bien, al mstra! no le enga- 
amos. Toma solamente los tres caracteres y 
punto. Podemos comprobarlo escribiendo: 
PRINT fragmentoS 
y 
PRINT LEN (fragmentoS) 
visualiz6ndose en la pantalla las tres letras de 
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cABC y adem6s la Iongitud del fragmento 
(tres) que nos confirma Io que acabamos de 
deck. Podemos resumirlo asegurando que si 
la Iongitud de la expresi6n literal es menor que 
la Iongitud deseada, la cadena que produce 
nuestro ordenador es la expresi6n completa. 
Para no ser menos, tambi6n existe otra fun- 
ci6n que nos va a seleccionar una serie de le- 
tras, pero ahora a partir de la palabra o da- 
to alfanum6rico que queramos. Se trata de: 
RIGHTS(cadenaS,Iongitud) 
y nos produce una subcadena que tendr6 tan- 
tos caracteres como nos indique longitud to- 
mados por la derecha del valor alfanumrico 
contenido en ¢cadenas. 
PRINT RIGHT$("PEPE",3) 
har6 que se escriban 3 caracteres de la pala- 
bra cPEPE empezando a contar por la de- 
recha de la misma. 0 sea: 
PRINT RIGHTS("12345",2) 
qug efectos producir6? Intente explic6rselo 
por si mismo y comp6relos con esta otra ins- 
trucci6n: 
PRINT LEFTSI"12345",2) 
Tanto la expresi6n literal como la Iongitud 
de la subcadena elegida son las mismas, pe- 
ro las funciones son diferentes. Ve daramente 
el porqu6 de los diferentes resultados obteni- 
dos? 
Con el programa 2, que es muy parecido 
al anterior, vemos una forma prcktica de apli- 
car esta nueva funci6n. 

Programo dos 

Es un bucle FOR... NEXT similar al que uti- 
lizamos para hater que nuestro nombre fue- 
ra creciendo. Pero ahora la variable de con- 
trol indice ira decrementando desde la Ion- 
gitud de la palabra que hayamos introducido 
desde el teclado -en la linea 30- hasta que 
valga 1 y nos genere una sobcadena de una 
sola letra. 
AI ejecutarlo parece que, comenzando por 
escribir la palabra completa la primera vez 
que se realiza el bucle, vamos quitando la pri- 
mera letra en cada vuelta hasta quedarnos con 
una solamente. 
En esta ocasi6n empleamos la funci6n 
RIGHTS, linea 70, y por eso es por Io que la 

Ir RM PROGIAMA II 
30 INPUT "oIl UA PALARA: ",1ala 
40 PRINT 
50 lnitud LENqlabra$) 
60 FOR ndi Ingitud TO I SEP -I 
70 ramentgS=RIGHTS(alabra$, indi 
0 PRINT fragment,S 
90 NXT indite 
iO0 PRINT 

letra que desaparece es la del lado contrario: 
comenzamos a contar y selecdonar letras des- 
de la primera de la derecha, tal como hemos 
dicho. 
Imaginamos que si ha comprendido el mo- 
do de trabajo del programa anterior no ten- 
dr ninguna pega en hacer Io mismo con s- 
te, ya que salvo la nueva funci6n todo Io de- 
m6s es muy parecido. 
$61o nos queda decir sobre RIGHTS y LEFTS 
que su segundo parcmetro s61o admite valo- 
res comprendidos entre 0 y 255. Y esto, a par- 
te del funcionamiento interno del ordenador 
(no nos vamos a meter en 61), tiene su 16gica. 
Alguna serie de caracteres tiene Iongitud ne- 
gativa o compuesta por menos de cero le- 
tras? Es evidente que no, gverdad. El literal 

m6s pequeo es la codena vacia ('"') y se es- 
cribe: 
PRINT LEN("') 
obfendr6 como resultado que est6 compues- 
ta por mingunm letra, o Io que es Io mis- 
mo que su Iongitudes cero. 
Adem6s, el Amstrad s61o admire expre- 
siones literales que tengan como m6ximo 255 
caracteres (una limitaci6n). Asi que no es nin- 
guna novedad decir que una subcadena no 
puede tener mcs de 255 simbolos. 
Pero de todas formas, compruebe qu pa- 
sa si Ilegamos a una linea que contenga una 
de estas funciones cuyo segundo part'metro 
no est6 comprendido entre estos valores. Te- 
clee: 



fragmento$ -- L E FT$ ("PIPI",-32) 
O 
fragmento$ = RIGHT$1"P£P£",328) 
En ninguno de los dos casos engaamos a 
nuestro ordenador (adem6s tampoco es 6sa 
nuestra intenci6n). Nos acaban de aparecer 
en la pantalla sendos mensajes de error: 
Improper argument 
nos est6 indicando que estamos pasando co- 
mo par6metros de una funci6n unos valores 
que no est6n de acuerdo con la propia deft- 
nici6n de la misma. 
Adem6s de estas dos, existen otras muchas 
que nos van a permitir manipular cadenas. El 
Amstrad es uno de los ordenadores que tie- 
ne mayor potencia y versatilidad en este cam- 
po. 
Puede ocurrir queen alg0n momento nece- 
sitemos seleccionar una o varias letras del con- 
tenido de una cadena pero no a partir de la 
derecha o la izquierda, sino de una posici6n 
cualquiera dentro de la misma. 
Por ejemplo, suponga que queremos escri- 
bir una palabra, pero en vez de horizontal- 
mente necesitamos que aparezca en sentido 
vertical, como si fuera escritura china. 
Si conocemos su contenido, o valor, no hay 
problema ya que podemos deletrearla noso- 
tros mismos y luego imprimirla letra a letra, 
como en el programa 3. 

Programa tres 

Con 61 conseguimos que aparezca en la pan- 
talla la palabra <GATOS) en la cuarta colum- 
nay de arriba a bajo. Hemos dividido <GA- 
TOS en cada uno de sus caracteres y los he- 
mos ido escribiendo uno a uno yen filas dife- 
rentes. 

20 
30 PRINT TAB(4) 
40 PRINT TA(4)"A" 
50 PRINT TA(4) 'IT" 
aO PRINT TA(4) 
70 PRINT TAB4)"" 

Las colocamos en la cuarta columna median- 
te el atributo TAB(4) que acompaa a cada 
una de las sentencias PRINT que dan forma 
al programa. 
AI final obtendremos el resultado deseado, 
pero nos parece que el m6todo empleado no 
es el m6s eficaz y por supuesto es bastante po- 
co elegante: es rudimentario, en pocas pala- 
bras. 
Sin ir m6s lejos, cuando no se trate de un 
valor alfanumgrico conocido sino que sea el 
contenido de una variable de este tipo, ya nos 
empiezan a surgir problemas. No conocemos 
ni su composici6n ni su Iongitud ni nada de na- 
da sobre l. Fntonces, c6mo hacerlo? 

El Basic de Amstrad es uno de los m6s po- 
derosos en cuanto a tratamiento y manejo de 
cadenas. Adem6s, siempre responde a tan fa- 
vorable propaganda. Yen este caso tambin. 
Se pone a nuestra disposici6n una instruc- 
ci6n que nos permitir6 hater f6cil este proble- 
ma que ahora nos aparece como insalvable: 
MID$(nombreS,posici6n,caracteres) 
funci6n que nos dar6 una cadena, formada 
por el nOmero de caracteres indicado por ca- 
racteres) cogidos a partir del que est6 colo- 
cado en la posici6n <posici6n, dentro de Io que 
contenga en este momento la variable alfanu- 
mrica nombreS. 
Si teclea: 
PRINT MID$("CASA",3,1) 
aparecer6 ante nuestros ojos un car6cter 
timo pargmetro) tomando a partir del terce- 
ro de la expresi6n literal CASA. Resumien- 
do, veremos una S. 
Cuando escriba: 
PRINT MIDS("FRUTA",2,3) 
la funci6n nos devolver6 una cadena forma- 
da por tres letras tomadas a partir de la se- 
gunda de la palabra <FRUTA. O sea, RUT. 
Y asi sucesivamente. lntuye la manera de 
aplicarla a nuestro anterior problema. Aho- 
ra descompondremos la variable litaral en to- 
das y cada una de las letras, o simbolos, con 
toda facilidad utilizando esta nueva herra- 
mienta. Bastar6 con ir recorriendo el valor que 
contenga mediante un bucle FOR... NEXT, pot 
ejemplo, cuya variable de control comenza- 
ra por 1 y Ilegara hasta la Iongitud de la pa- 
labra introducida para escribir en vertical. 
El programa 4 ser6 un buen sustituto del an- 
terior. Observe las diferencias. 

Programa cuatro 

Vea queen 61 la encargada de deletrear la 
palabra que hemos introducido al ordenador 
mediante el INPUT de la linea 30, es la fun- 
ci6n MIDS de la 70. No pase por alto la ma- 
nera de utilizarla. 
Con el bucle, estamos seleccionando cada 
una de las letras de la expresi6n alfanum6ri- 
ca (<palabra$) de una en una, seg0n nos 
indica el tercer par6metro de MID$, comen- 
zando por la inicial, ya queen la primera pa- 

I0 REI PROGRAMA 
20 
l br  
40 PRINT 
0 FOR H,i':ic,n=l TO 
70 ltra$ 
0 PRINT TAg(20)ltr 
90 NEXT 
JO0 PRINT 

sada la variable de control vale 1, y terminan- 
do por la que ocupa el lugar dado por la don- 
gitud) de la palabra tecleada, o sea, la 01ti- 
ma. 
Asi no tendremos problemas ni pot el con- 
tenido ni por la Iongitud ya que siempre va- 
mos a poder determinarlos inequivocamente. 
Le sugerimos que intente variar el progra- 
ma para que la palabra se escriba de abajo 
para arriba o de cualquier otra forma que se 
le ocurra. 
Para terminar le dejamos con el programa 
5. Es un ejemplo muy sencillo pero en el que 
vamos a combinar varias funciones de trata- 
miento de cadenas. 

Programa cinco 

Su misi6n consiste en tomar una frase que 
nosotros le vamos a dar. Analizarla, manipu- 
larla y respondernos con el nOmero de letras 
y palabras de que consta. 
Le aseguro que si nos ha seguido detenida- 
mente, no encontrar ninguna dificultad cuan- 
do se ponga aver qu6 es exactamente Io que 
hace y c6mo Io hace. iNo incluimos nada nue- 
vo! 

I0 P|.tl r'F'OIPAMA s 
0 INPUT ,,pr CUALQIJI-R FRA. 
0 FOR p,i:ur, I TO c,ngLud 
O0 I etr a, 
-lungfud) AND pai-O THEN 
I0 
130 PRNT"LA FASE 
140 PRINT 
150 PRINT TAB(IO)" CONTENE:" 
160 PRINT 
170 PIN 
80 PPINT 
20O PRINT 

Pero no nos quedaremos aqui. Aunque ya 
estemos en verano y nos apetezca un m- 
tn) resfrescarnos en la piscina, todo es com- 
patible. Continuaremos descubriendo nuevas 
herramientas que nos hagan estar entre las 
de$ no encadenados, sino como 
((peces en el agum>, Refrescantes saludos. 



AMSTRAD CPC-464 

AMSTRA 

SERIE CPC 

UNIDAD CENTRAL. MEMORIAS 
Mtcroprecesador Z80A 64K RAM 
ampliables 32K ROM ampliables 
TECIADO, Teclado profeslonal con 
74 teclas en 3 bloques Hasta 32 teclas 
programables - Teclado redeflmble 
PANTALIA, Momtor RGB verde (12") 
color (14") 

Puntos 320 x 2,00 6.0 x 200 !60 × 2 
Se pueden deflmr hasta 8 ventanas de 
texto y 1 de grAficos, SONIDO 
• 3 cana!es de.8.octavas .moduladas 
independienteme,te • A}tav'oz inferno 
regulable SalJda •stereo • BASIC 
• Locomouve BASIC ,mpl,odo en 
I,cluye los comandos AI:'TEI y -'VEY 
para control d ,mterrupc|or, es 

ORDENADO ' 

AMSTRAD CPC 464 

AMSTRAD CPC 6128 

CASS.ETTE • Cassette Incorporada con 
velocitad de grabact6n (l 6 2 Kbaudios) 
controlada desde Basic • CONECTORES 
• Bus PCB multiuso, Umdad de Disco 
exterior, paralelo Centrontcs, sahda 
estreo, joystick ]piz 6ptico, etc. 
• SUMINISTRO, Ordenador con morfitor 
verde o color 8 cassettes con 
programas • Llbro "Guia de leferencia 
BASIC para el programador" Manual en 
rust•llano Garantia Oficial AMSTRAD 
ESPAA 
TODO POR 59.900 Pts. monitor verde 
90.900 Pts. (monitor color) 

UNIDAI DE DISCO • Unidad 
incorporada para disco de 3" con 180K 
pot cara• SISTEMAfi OPEI)ATIVOS 
• AMSDOS CP. M 2.2, CP/M Plus (3.0) 
• CONECTORES • Bus PCB multiuso, 
paralelo Cer{tron,cs, cassette exterior, 
2 a Unidad de Disco, sahda est&reo, 
joysticks, lptz 6ptlco, etc, 
SUMIISTRO • Ordenador con monitor 
verde o color- Disco con CP/M 2,. y 
lenguaje DR LOGO .- Disco con CP/M 
Plus y utflldades - Disco con 6 programas 
de obsequlo - Manual en castellano - 
Garaata Ofiaal AMSTRAD ESPAA, 
TODO POR 84.900Pts. (monitor verde) 
H9.900Pts. (momtor color) 



P W- : 256, AMSTRAD CPC- 6128 

S MSTR 
AMSTRAD PCW 8256 Centrontcs, SUMINISTRO • 
completo con teclado, pantalla, Unidad 

UNIDAD CENTRAL. MEMORIAS 
• Microprocesador Z80A- 256K RAM de 
las que l12K se utilizan como disco RAM 
• TEC.LADO • Telado pt'ot'esio1'ial en 
stellano (fi, acento...) de 82 teclas 
• PANTALLA • Monitor verde de alta 
resoluci6n - 0 columnas × 32 lineas de 
texto * UNIDAD DE DISCO • Dsco de 
3" y 173K por cara- Opaonalmente, 
2? Unidad de Dis o de 1 Mbyteintegrable 
• SI'rEM OPERATNO • CP M Plus 
de Digital Research • IMPORA • 
Alta calidad (NLQ) a 20 c p.s.- Cahdad 
estAndar a 90 c,p.s, - Papel continuo u 
hojas sueltas - Alineacn automatca del 
papel - Caracteres normales, 
compnmidos, expandidos, control del 
paso de letra (normal, cumva, negrita, 
subindices, supefin.dices, subrayado, etc) 
• OPClONE5 • Kit de Ampliaa6n a 
512K RAM y 2," Unidad de Disco 
Interface Sefie RS 232C y parale'lo 

de Disco e Impresora - Discos con el 
procesador de Texto LocoScript, CP M 
Plus, Mallard, BASIC, DR, LOGO ydiversas 
utilidades Manuales en castellano- 
Garanta Oficial AMSTRAD ESPAA, 

TODO POR 129.900 Pts. 

Lo ms presfi.gloso, paquctes d- 
Software Profe.ional, en formato 
AMSTRAD,,, a "predo AMSTRAD" 

Existe tambln la versSn PCW 8512 con 
512K RAM y la 2," Unidad de Disco de 
1 Mbte incorporada,[] 
* E1 PCW 8256 puede utilizarse como 
terminal yen comunicaciones, 
E1 I,V.A. no estA mcluldo en los precios, 
NOTA: Es muy nportante verifcar la garantia del 
aparato ya que s61e AMSTRAD ESPANA puede 
garantizafle la odenada reparaciSn y sobre todo 
matefialea de repuesto oficiale (Monitor, 
ordenador, cassette o unidades de discos). 
ESPAF, IA 

Ada. de| Mediterrneo, 9. Tels. 433 45 45 - 4; 48 76. 
Delegaon Cstala: Tan'agora, 110 - Tel. 32 I0 
08015 BARCELONA 



PROG '   CION 
ESTRUCTU '  DA 

Respecto a la programaci6n, yo creo que hay una vieja pregunta que 
est6 permanentemente en el aire: es un arte o una ciencia? Los 
programadores profesionales, que crean maravillas como Knigth 
Lorenz, o como Nucleus, son cient[ficos que siguen rfgidamente un 
disciplinado y estudiad[simo mdtodo de trabajo? o, por el contrario, 
son ilumlna.dos que, a golpes de imaginaci6n e intuici6n, construyen 
obras gemales que elevan a un estdpido puhado de circultos a la 
categorfa de herramienta indispensable del siglo XX? Dos preguntas, y 
una sola respuesta: Programaci6n estructurada. 
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icen las malas len- 
guas que la programaci6n y el ma- 
soquismo son parientes muy, pero 
que muy cercanos. 
Los profanos en el esot6rico (dicen 
ellos) arte de la programaci6n, tie- 
nen en la mente la imagen de una 
persona encadenada a un terminal, 
con el pelo revuelto y mirada ves6- 
nica, envuelto en las hojas de un in- 
terminable listado y al cual casi se le 
puede oir funcionar el cerebro, tra- 
tando sin xito de resolver abstrusos 
problemas completamente aleiados 
del comOn de los mortales. 
Bien, pues es cierto. En general, los 
programadores son asi: est6n a ca- 
hallo entre la cadena de producci6n 
y montaje y la m6s refinada expre- 
si6n del arte. 
AI leer las palabras producci6n y 
montaje, supongo que se habr6 en- 
cendido inmediatamente la luz de 
alerta roja: <Hum .... producci6n, es- 
to huele a dinero>>. 
iBingo! A mucho dinero; el volu- 
men de negocios, para entendernos, 
de millones, que una casa de softwa- 
re de las grandes, como Microsoft, 
mueve, es espeluznante. 
No es muy sorprendente que gran 
cantidad de cerebros 1Ocidos hayan 
dedicado mucho tiempo a averiguar 
la forma de maximizar la producci6n 
de los programadoresoy, a la vez, a 
minimizar los costos. 

EL NA ClMIENTO 
DE. UN METODO 

Estos <pensadores)) descubrieron 
que la parte creativa de la progra- 
maci6n mejor no tocarla, pues es di- 
ficilmente mensurable, pero la parte 
de producci6n, eso es otro cantar. 
Hoy en dia, el hardware est6 <<ti. 
rado de precio, y cada vez m6s. Sin 
embargo, los programas cuestan, 
vox populi, <<una pasta> y, mira por 
donde, de todo este dineral, la ma- 
yor parte no se va en disear y es- 
cribir un programa, sino en corregir 
los errores que tenga, yen mante- 
nerlo actualizado, para que respon- 
da alas cambiantes necesidades de 
un mercado muy inestable, sujeto a 
modas, a la vez que posea la gene- 
ralidad suficiente para poder adap- 
tarlo, personaliz6ndolo, a los gustos 
de cada cliente. 

Como a los programadores, sobre 
todo a los asalariados, todo este edi- 
ficio de sutilezas les importa un ble- 
do, no hubo m6s remedio que dotar- 
les de una disciplina profundamente 
estudiada de optimizaci6n de costos, 
basada, parte en la planificaci6n, y 
parte en la experiencia extraida de 
la labor diaria de los mismos progra- 
madores. 
Es el momento de introducir las dos 
palabras que dan titulo a este arti- 
culo: Programaci6n Estructurada. 
La frase, bastante cursi por cierto, 
hace referencia directa a otto par de 
cositas: Niklaus Wirth y Pascal; un 
hombre y su lenguaje. 
En los 01timos estertores de los 60, 
Wirth dijo muy alto Io que casi todo 
el mundo pensaba y admifia en el 
desvn de la programaci6n: <<Sefio- 
res, no tenemos idea de c6mo pro- 
gramar, y los lenguajes m6s en uso 
hoy, Basic y Fortran, son un churro. 
La verdad es que Io dijo con bas- 
tante m6s <mano izquierda> que el 
autor de este articulo, y, de tal for- 
ma, que la caterva de esc6pticos que 
inmediatamente alz6 el vuelo ante 61, 
pudieron tocar, como Santo Tom6s, 
algo tangible que resolvia el asunto 
de forma concluyente: el Pascal. 

LLEGA PASCAL 

Nosotros, en mi opini6n por des- 
gracia, hemos mamado de los pe- 
chos del Basic desde que nacimos a 
la inform6tica, y asi nos va; sin em- 
bargo, aunque Pascal sea un asun- 
to aparte, podemos aplicar su 16gi- 
ca y sus postulados de base, de di- 
sefio, a los programas que escriba- 
mos en Basic, salvando las distan- 
cias. 
Wirth bas6 el Pascal en una serie 
de principios muy simples, y muy 16- 
gicos, teniendo en cuenta la altura a 
la que se encontraba el hardware en 
su 6poca (hace muchos, muchos 
Oos): 
 No usar el lenguaje m6quina 
m6s que cuando sea absolutamente 
necesario. Vivan los lenguajes de al- 
to nivel. 
 Los Onicos lenguajes viables 
para programaci6n seria, por razo- 
nes de efciencia (velocidad), son los 
compilados. 
 El compilador debe facilitar al 
m6ximo la labor del programador: 
una forma de hacerlo es crear un 
lenguaje extremadamente rigido, no 
dejando al azar ning0n tipo de am- 
bigOedad: o es, o no es. 

 Partiendodela base dequeel 
programador tiende a ser desorga- 
nizado y variable, el lenguaje debe 
imponer una monolitica disciplina a 
la hora de crear un programa. 
 La fase de codificaci6n del 
programa debe ser la Oltima en rea- 
lizarse: el diseo debe materializar- 
se y crecer, pues, sobre papel. 
-- Es m6s f6cil resolver un gran 
problema dividi6ndolo en pequeas 
partes, y 6stas a su vez en otras, has- 
ta alcanzar el caso trivial, que abor- 
dar el asunto, confusamente, como 
un todo. 
El problema con el Basic es que no 
todos los postulados anteriores le son 
aplicables: Basic no es compilado, 
por Io menos el del Amstrod, nies ri- 
gido: permite al programador todo 
tipo de libertades, favoreciendo la 
creaci6n de programas confusos e 
indescifrables. 

ESTRUCTURAR EN BASIC 

No obstante, algo podremos ha- 
cer. Vamos a partir de la base de 
que, en nuestro caso, el programa- 
dor sf sabe Io que est6 haciendo, 
aunq.ue esto implica, cre6nme, que 
ya hayamos empleado unas cuantas 
horas en el diseo y comprensi6n de 
la 16gica del problema. 
Imaginemos que se necesita una 
agenda, y que no estamos nada dis- 
puestos a comprar una. $61o queda 
una alternativa: hac6rnosla. 
Primer problema: cual va a ser el 
tamao de los dato que tengamos 
que manejar? 
En apariencia, la pregunta es un 
tanto sorprendente, pero mirelo de 
esta manera: si vamos a meter el 
equivalente en datos de una guia te- 
lef6nica, para almacenarlos necesi- 
tamos docenas de discos o un disco 
duro, o sea, apaga y v6monos, 
mientras que si el volumen de datos 
es razonable, podemos conformar- 
nos con almacenarlos en un disco 
normal, en humildes ficheros secuen- 
ciales. Tambi6n el asunto del tama- 
o afecta al algoritmo de b0squeda 
y ordenaci6n que tomemos, como 
luego se ver6. 
Asi, no hemos escrito una linea de 
programa, pero ya nos hemos en- 
contrado con el problema funda- 
mental del programador: qu6 es- 
tructura de datos es la m6s conve- 
niente. 
AI decidir que trataremos con can- 
tidades <<razonables), parece 16gico 
usar matrices alfanum6ricas para al- 
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macenarlos en la memoria, asi con- 
seguiremos una mayor velocidad y 
eficiencia en las previsibles operacio- 
nes de ordenaci6n y bOsqueda. 
Un enfoque m6s general y riguro- 
so, que permitiera tratar con cual- 
quier volumen de datos, no nos com- 
pensaria el tiempo invertido en de- 
sarrollarlo (hi el dinero) para este ca- 
so concreto. 
Una vez decidido el tipo de datos, 
matrices alfanumricas, y d6nde 
guardarlos cuando hayamos termi- 
nado con elias, ficheros de disco se- 
cuenciales, podemos plantearnos 
qu6, y c6mo, va a funcionar la agen- 
da. Insisto: ni una linea de progra- 
ma hasta ahora. 

POR EL CAOS 
HAClA EL ORDEN 

Veamos, qu6 debe hacer la agen- 
da. Si, ya s6, ni idea. Buena, a estas 
alturas, yo tampoco. La tabla de sal- 
vaci6n de angustiosas situaciones coo 
mo la presente, una de elias, es es- 
cribir todas las ideas que se nos ocu- 
rran en cualquier arden; luego, ya se 
le dar6 una estructura y una jerar- 
quia. 
Un, dos, tres, probando: 
|. Tipos de datos: matrices o ma- 
triz para operar con elias en memo- 
ria. Mayor velocidad. Guardar en fi- 
cheros secuenciales de disco, tipo 
texto. 
2. Lectura de los datos del disco. 
Introducirlos en matriz o matrices co- 
rrespondientes. 
. Aceptar nuevos datos. Com- 
probar su validez e introducirlos en 
la matriz correspondiente. 
4. Fin de la sesi6n. Todos los 
tos al disco. 
5, Inicializaci6n de variables y fi- 
cheros. 
6. Posible presentaci6n en forma 
de men0 de opciones. 
7. Impresi6n de los datos par 
pantalla y/o impresora. 
$. Ordenaci6n de los datos par el 
mtodo m6s r6pido posible, en fun- 
ci6n del n6mero de datos que tenga- 
mos que tratar. 
Leyendo atentamente este <ca- 
cao, se puede dar un paso m6s en 
el diseo de la agenda, agrupando 
todo esto en categorias: 
=) Tipos de datos. 1 
b) Inicializaci6n. 5 
¢} Presentaci6n. 6 
d) Proceso de los datos. 2, 8, 4 
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e) Entradas/salidas. 3, 7 
Tenemos 5 apartados, de los cua- 
les el a) puede englobarse dentro 
del <b), a la hora de escribir el pro- 
grama, ya que est6 ahi puesto, m6s 
que nada, para nuestra informaci6n. 
Estamos listas para dar afro paso 
adelante: escribir el cuerpo principal 
del programa, encargado de mane- 
jar una serie de subrutinas que van 
a realizar las tareas anteriores. Se- 
ria, m6s o menos, ask 
REM CUERPO PRINCIPAL DEL 
PROGRAMA AGENDA 
GOSUB inicializar 
GOSUB presentaci6n 
GOSUB men0 
GOSUB aceptadatos 
GOSUB metedatos 
GOSUB ordenadatos 
GOSUB imprimedatos 
GOSUB finprograma 
END 
Buena, alga m6s clara si que est6; 
sin embargo, las categorias no est6n 
bien escogidas: algunas subrutinas 
dependen de la elecci6n que se ha- 

ga en el men6 de opciones; vamos 
a estructurar de nuevo: 
REM CUERPO PRINCIPAL DEL PRO- 
GRAMA AGENDA 
GOSUB inicializar 
GOSUB presentaci6n 
GOSUB MENU 
ON elecci6n GOSUB aceptadatas, 
metedatos, ordenadatos, imprime- 
datos, finprograma 
END 
El programa va tomando forma, 
pero todavia adolece de un defecto 
esencial y bastante comOn: todas las 
subrutinas, despu6s de men0, s61o se 
ejecutar6n una vez. Hay que instruir 
al programa para que se detenga 
cuando finalicemos. Para ella, la ru- 
tina finprogram¢= debe interaccio- 
nar con el programa principal, me- 
diante un flag que causar6 la salida 
de un bucle WHILE...WEND, dees- 
ta manera: 
REM CUERPO PRINCIPAL DEL PRO- 
GRAMA AGENDA 



GOSUB inicializar 
WHILE NOT fin 
GOSUB presentaci6n 
GOSUB MENU 
ON elecci6n GOSUB aceptadatas, 
metedatos, ordenadatos, imprime- 
datos, finprograma 
WEND 
END 
Yo, personalmente, recuerdo mis 
dias de programador spaguettb, 
cuando me sentaba al teclado y, lie- 
no de un ardor casi religioso, codifi- 
caba coma un Ioco programas de es- 
te tipo, intentando hacerlo todo de 
una vez. Ni que decir tiene que el 
producto final era, aparte de un ma- 
remagnum de indiscriminados O0- 
TOs)), una verdadera obra de arte 
de criptografia, que no de la progra- 
maci6n, envidia eterna de los m6s 
pulcros y h6biles artifices de jerogli- 
ficos del Antigua Egipto. 
Coma uno, par muy programador 
que sea, tambin tiene su corazon- 
cito, no puedo par menos que gritar 
de jObilo al ver que est6 perfecta- 
mente clara la estructura y funciona- 
miento de un programa sin ni siquie- 
ra haber tocado el ordenador. 

VENTAJA$ DE LA 
PROGRAMAClON 
ESTR UCTURA DA 

Espero que los lectores, amableo 
mente, perdonen este explosivo c6no 
tico alas estructuras, tema no muy 
rom6ntico, pero de includable utilio 
dad si uno se fija en un punto esen- 
cial: nuestro programa, va a FUN- 
CIONAR SEGURO, sin habernos to- 
rnado la molestia de definir una sola 
rutina, y, adem6s, est6 pensado de 
tal forma que permite, a su vez, dos 
COSOS: 
1. Las rutinas servir6n para cual- 
quier programa que cumpla una mi- 
mma semeianza con nuestra agen- 
da: que maneje matrices alfanOme- 
ricas y ficheros secuenciales. En efec- 
to, una rutina ordenadatos funcio- 
nat6 haya Io que haya en la matriz 
a ordenar. 
2. Las rutinas son intercambiables 
en funci6n de las necesidades del 
programa. 
Par ejemplo, para ordenar 100 
datos, has basta un algoritmo simple 
del tipo burbuja; para ordenar 1000, 

tendriamos que recurrir a alo m6s 
eficiente, coma el quicksort (en cas- 
tellano, <<ordenaci6n rdpida), PERO 
SOLO HABRA QUE CAMBIAR ESA RU- 
TINA; EL RESTO DEL PROGRAMA PER- 
MANECE INVARIABLE. 
Casi sin darnos cuenta, nos hemos 
introducido en otro asunto clave de 
la programaci6n estructurada, de la 
que hemos hablado par encima en 
otras ocasiones: la MODULARIDAD, 
cuyo estudio en profundidad, junto 
a la codificaci6n definitiva de las su- 
brutinas del program agenda, deja- 
mos para la segunda parte de este 
articulo. 
Antes de despedirme, y asumien- 
do un papel paternalista en el mejor 
sentido de la palabra, si es que Io tie- 
he, creo que seria una buena idea 
que el lector intentara, siguiendo el 
m6todo expuesto en este articulo, co- 
dificar y estructurar el programa, 
con el doble objeto de practicar en 
alga clave para cualquier programa- 
dor, y poder comparar su soluci6n 
con la que propondremos en el pr6- 
ximo articulo; puede que la suya sea 
m6s elegante y eficiente que la nues- 
tra. Siempre hay m6s de una forma 
de hacer las cosas. 

o t 

J 
i est6s interesado en alg0n n0mero de los 
ya publicados par Microhobby Amstrad, rea- 
liza hay mismo tu pedido porque ya hay algunos 
ejemplares agotados. 
No pierdas la oportunidad de disponer de la mejor 
obra publicada sabre ordenadores Amstrad. En todos 
sus n0meros encontrar6s interesantes articulos de inicia- 
ci6n, pokes, trucos, curso de c6digo m6quina, etc... 
jNo te pierdas detalle! 
Recorta o copia el cup6n que aparece cosido en /as pdginas 
de la revisto. 



OA  IANDO 

Tras largos meses de espera, par fin ilega el 
famoso comando a las pantallas de Arnstrad. 
Empuja el joystick con decisi6n y dispara a todo Io 
que se mueva a tu alrededor. 

Qu6 fue primero, 
el huevo o la gallina? Este misterio- 
so enigma, que ha traido de cobeza 
a la humanidad desde el Renaci- 
miento, nunca ha admitido el menor 
g6nero de duda en el mundo del 
softwa re. 
Siempre que una pelicula alcanza 
altas cotas de 6xito, y su fama se ex- 
tiende par todos los paises, las casas 
de software se apresuran a lanzar la 
versi6n de la misma, en juego de or- 
denador. 
En nuestro largo camino par el 
mundo del software, hemos vista de 
todo; desde las adaptaciones hechas 
con precipitaci6n sin cuidar demasiao 
do el producto, hasta obras de un 
inestimable valor. 
Na obstante, la t6nica general de 
este tipo de produclos, es conseguir 
una r6pida adaptaci6n para aprove- 
char el periodo de 6xito taquillero de 
la pelicula, y de esta forma poder 
vender el m6ximo de capias bas6n- 
dose en el nombre del film. 
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Coma politica comercial, la cosa 
no est6 nada mal, y seguro que las 
cifras de ventas son altas, y produ- 
cen pingOes beneficios. 
Pero, en cambio, atendiendo a la 
calidad del software, los programas, 
debido principalmente a la premura 
con que se realizan, no son obras 
maestras ni mucho menos. 
Con Comando, el arden de los 
acontecimientos se ha vista alterado 
profundamente. Par primera vez (y 
esperemos que no sea la Oltima) es 
un juego de ordenador el que da pie 
a la creaci6n de una pelicula. 
Si siempre habia sido el cine el an- 
tecedente del software, sin embargo, 
Comando ha extendido su poder 
desde los monitores de ordenador, 
hasta las gigantescas pantallas de las 
salas de exhibici6n. 
El principal responsable de todo 
este revuelo un juego de acci6n tre- 
pidante, en el que todo se desarro- 
Ila a base de fusil ametrallador y gra- 
nada de mano. 
El creador del mismo es la casa ni- 
pona CAPCOM, cuyo campo de ac- 
ci6n son los juegos de m6quinas de 
billares, consiguiendo un producto 

i/ 

'1 ,4 
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de espectacular colorido y efectisma 
altamente realista. 
Con Comando entramos en el 
mundo de los h6roes de Hazaas B6- 
licas. En misi6n suicida un solo hom- 
bre se enfrenta a todo un ej6rcito de 
enemigos armadas hasta los dientes. 
Con el m6s puro espiritu legiona- 
rio, nuestro h6roe continuar6 avan- 
zando hasta Ilegar al polvorin y des- 
truirlo, a morir en el empeo. 
Joe, soldado de 61ite experto en lu- 
cha de guerrillas, y misiones que re- 
quieren un alto grado de capacita- 
ci6n fisica, es soltado par un helic6p- 
tero en los Iimites de la zona contro- 
lada par la guerrilla. 
Depositado en un clara de la es- 
pesa vegetaci6n, el estruendo del 
aparato pone en guardia alas pa- 



trullas de vigilancia que circundan la 
zona. 
En un abrir y cerrar de ojos, em- 
piezan a aparecer hasta de debajo 
de las piedras fuerzas de la guerri- 
lla, dispuestas a liquidar al intruso 
que se interna en su zona. 
Solamente las inmejorables condi- 
ciones de Joe, pueden hacer que su- 
pere estos primeros inconvenientes 
sin el menor problema. 
Entrenado en las m6s modernas 
t6cnicas de lucha cuerpo a cuerpo, 
su rapidez de reflejos y excelente 
punteria hacen caer coma moscas a 
sus primeros contendientes. 
El usa continua de su fusil ametra- 
Ilador, limpia de estorbos las inme- 
diaciones de su imparable marcha; 
unos metros mcs adelante, el conti- 

nuo tableteo de una ametralladora 
denuncia un peligro m6s serio. 
Tras un murete de sacos terreros, 
la pieza de tiro y sus servidores lie- 
nan de plomo el aire a nuestro alre- 
dedor. Es el momenta en que Joe ex- 
trae una granada de mano de su cin- 
tur6n, y, lanz6ndola certeramente, 
hace saltar par los aires la ametra- 
Iladora y sus sirvientes. 
El pr6ximo desafio: cruzar el puen- 
te de la carreta general; sitio que, 
par la escasa vegetaci6n y las patru- 
Ilas motorizadas que circulan par 
ella, hacen extremadamente peligro- 
so su paso. 
De nuevo en la jungla, puestos de 
franco tirador has acechan; movili- 
dad y unas rfagas de fusil ametra- 
Ilador son suficientes para superar- 
lOS. 
Tras elias se erigen las puertas del 
primer fortin, las cuales se abren 
dando paso a una verdadera mara- 
5a de enemigos. Joe empuSa con la 
izquierda el fusil ametrallador y sin 
dejar ni un momenta de disparar, 
lanza granadas con la mano dere- 
cha. 
Dentro de los muros del fortin, tan- 
quetas y soldados atrincherados has 
aguardan; tras elias los barracones 
escupen par sus puertas compaSias 
enteras. 
Superados estos casamatas, bun- 
kers y acuartelamientos subterr6neos 
protegen las puertas de la zona de 
m6xima seguridad. 
Los pr6ximos peligros que esperan 
a Joe s61o son para jugadores exper- 
tos. Cualquier mortal sucumbiria a 
las puertas del primer fortin, los su- 
perhombres pasar6n. 
El juego de Elite, casa responsable 
de la versi6n para Amstrad, Ilega un 
poco tarde, casi cuando la pelicula 
ha pasado a la historia, y con varios 
meses de retraso respecto a las arras 
versiones para ordenador. 
El programa est5 realizado utili- 
zando el modo de 16 colores. Los 
grSficos realizados con una t6cnica 
bastante naifi>, resultan infantiles, al 
compararlos con Io vista en versio- 
nes del mismo juego para otros or- 
denadores. 
El 6ngulo de visi6n est6 enfocado 
coma si de una vista a6rea se trata- 
ra, quedando los gr6ficos de los sol- 
dados dotados de una extraa cons- 
tituci6n fisica. 
AI ver las figuras desde arriba, los 
soldados resultan paticortos, produ- 
ciendo un gracioso efecto al poner- 
seen movimiento; s61o se ve cabe- 
za, espalda y pies. 

I'| 

El tamaSo de los guerrilleros, de 
dimensiones reducidas (2,5 cm de al- 
tura), contribuye a reforzar m6s aOn 
el efecto infantil de los gr6ficos: la 
animaci6n le sigue de cerca. 
Una incesante m0sica, acompaa 
las andanzas de Joe, mientras 6ste 
se abre paso entre la maraSa de 
enemigos que le acosan. 
Un juego de constante acci6n, en 
el que hemos de permanecer cons- 
tantemente en movimiento, dispa- 
rando sin cesar a nuestro alrededor, 
manteni6ndonos preparados en to- 
do momenta, para las sorpresas que 
has esperan tras cada zona defensi- 
va superada. 
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ABRE 
LAS VENTANAS 
DE Tu ' IVISTRAD 

Continuamos esta semana hablando de la 
impresi6n en pantalla. En este capltulo 
explicaremo$ c6mo se pueden definir ventanas 
desde c6digo m6quina y ¢6mo seleccionar el color 
para cada una de elias. 

Jomo todos sabe- 
mos, cada una de las ocho Yentanas 
que se pueden obtener en el Am$- 
trad, Ileva asociado un canal a tra- 
v6s del cual puede reconocerse ca- 
da una de elias en el momento de- 
seado. 
Adems dichas ventanas pueden 
Ilenarse con colores distintos previa- 
mente definidos por nosotros, selec- 
cionando el canal correspondiente. 
Lo primero que se hace al entrar 
en la rutina, es seleccionar el modo 
de pantalla con el que se va a tra- 
bajar. En este caso elegiremos el mo- 
do cero para obtener mayor n0me- 
ro de colores, ya queen este modo 
se pueden definir hasta 16 colores 
distintos. 
Una vez seleccionado el modo de 
trabajo, colocaremos el color del 
horde de la pantalla con el color que 
se desee. 
Todas las Ilamadas al firmware uti- 
lizadas hasta el momento, ya han si- 
do estudiadas en anteriores capitu- 
lOS. 
El siguiente paso de programa, de- 
be ser la definici6n de cada una de 
las ventan. que se deseen obtener 
en pantalla. Para ello debemos se- 
leccionar en primer lugar el canal co- 
rrespondiente a cada una de dichas 
ventanas. 
La seJecci6n de canales la realiza- 
remos mediante la siguiente Ilamada: 
SELECCIONA CANAL. #BBB4 
Selecciona el canal de impresi6n 
de la ventana correspondiente. 
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Condiciones de entrada. 
En el registro A se debe indicar el 
n0mero de canal elegido. 
Condiciones de salida. 
El registro A contiene el n0mero de 
canal seleccionado previamente. El 
registro doble HL y todos los flags se 
corrompen. Los dem6s registros son 
preservados por dicha rutina. 
Dado que el Amstrad posee 8 
(0-7) canale$ de impresi6n en panta- 
Ila, dicha rutina se asegura de que 
el n0mero de canal no sea mayor a 
7, provocando una mscara con di- 
cho nOmero del acumulador. 
Una vez elegido el canal corres- 
pondiente a la ventana, deberemos 
seleccionar la ventana propiamente 
dicha, para ello se efectuar6 una Ila- 
mada al firmware que se encarga de 
producir dicho efecto. Esta Ilamada 
es la siguiente: 
SELECCIONA VENTANA. #BB66 
Selecciona una ventana. Los par6- 
metros de entrada deben ser la pri- 
mera y 01tima columna y la primera 
y 01tima fila de dicha ventana. 
Condiciones de entrada. 
El registro H debe contener la pri- 
mera columna, el registro D conten- 
dr6 la Oltima columna, el registro L 
debe contener la primera ilia y el re- 
gistro E la 01tima. 
Condiciones de salida. 
Se preservan todos los flags y re- 
gistros excepto AF, BC, DE y HL. 

El color del papel 

Seguidamente deberemos sele- 
cionar el papel con el cual deseamos 
que se rellene dicha'ventana. 
Dado que ya se ha seleccionado el 
canal, todas las operaciones que se 



hagan ir6n referidas a dicho canal 
hasta que no se especifique Io con- 
trario. 
Asi pues, el papel que se seleccio- 
ne en este momento ser6 el que co- 
rresponda a la ventana anteriormen- 
te definida. 
$61o queda, pues provocar un 
CLS para que nuestra ventana se 
muestre con el color del papel elegio 
do. 
Estas dos 01timas operaciones se 
realizan con Ilamadas al firmware 
que ya se han explicado en anterio- 
res capitulos, par Io que no perde- 
remos el tiempo en camentarlas de 
nuevo. 
Para definir las restantes ventanas, 
se hace exactamente la mismo que 
Io que se ha explicado anteriormen- 
te, Onicamente debe variar el canal 
correspandiente a cada una de las 
ventanas y el color que se elija para 
elias. 
Coma podemos comprobar en los 
listados Basic y Assembler del pro- 
grama que estamos estudianda, exis- 
te una diferencia en los par6metros 
con los que se definen las ventanas. 
Esto es debido a que el sistema Ba- 
sic utiliza coma coordenadas inicia- 
les, es decir coma coordenadas de 
principio de pantalla, la (1,1). 

PROGRAMA BASIC 

10 MODE 0 
20 BORDER 9 
30 WINDOW #I,I,10,I,5 
40 PAPER #I,I 
50 CLS #I 
&g WINDOW #2,11,20,1,5 
70 PAPER #2,2 
80 CLS #2 
98 WINDOW #3,1,10,28,25 
100 PAPER #3,3 
118 CL$ #$ 

128 WINDOW #4iI,20,2825 
130 PAPER #4,4 
148 CLS #4 
158 WINDOW #51,5&,19 
160 PAPER #5,5 
170 CLS #5 
180 WINDOW #6,16,20,6,19 
190 PAPER #6,6 
200 CLS #6 
218 PEN 7 
220 LOCATE B,9:PRINT '$1ETE" 
238 LOCATE 7II:PRINT 'VENTANAS" 
240 LOCATE 9,1$:PRINT 'EN' 
250 LOCATE 7,15:PRINT "PANTALLA ' 
260 WHILE INKEY$=":WEND 

Par el contrario el firmware utiliza 
coma coordenadas de inicio de pan- 
talla las (0,0), de aN la diferencia 
existente entre los parmetros de los 
dos listados. 
Quiz6 con un ejemplo pr6ctico 
comprendamos mejor cu61 es la di- 
ferencia existente. Si, par ejemplo, 
deseamos definir una ventana que 
ocupe la mitad superior de la pan- 

talla trabajando en modo cero, en 
Basic deberiamos confeccionar el si- 
guiente pragrama: 
WINDOW #1,1,20,1,12 
dicha ventana ida de la columna 1 
hasta la calumna 20 y de la ilia 1 
hasta la fila 12. Adems el canal re- 
conocido para la misma seria el ca- 
nail. 
Para ejecutar el mismo programa 
desde c6digo m6quina, deberiamos 
definir coma candiciones iniciales las 
que se dan a continuaci6n: 

LD H,0 (Columna 1 en Basic) 
LD L,0 (Fila en Basic) 
LD D,19 (Columna 20 en Basic) 
LD E,11 (Fila 12 en Basic) 
CALL. #BB66 
Par supuesto, antes de haber deft- 
nido dicha ventana debedamos ha- 
her seleccionado el canal correspon- 
diente, de Io contrario se tomaria el 
canal par defecta, que seria el que 
se hubiese elegido anteriormente. 
Asf pues, si dicha ventana se qui- 
siera identificar con el canal 5, de- 
beriamos haber escrito Io.siguiente: 
LD A,5 (NOmero de canal) 
CALL. #BBB4 

Elecci6n de la pluma 
Una vez definidas cada una de los 
ventanas, deberemos preparar la 
pluma con la cual deseamos escribir 
el texto en pantalla, para ello carga- 
remos en el acumulador el n0mero 
de pluma y se Ilamar6 a la rutina del 
firmware que se encargue de reali- 
zar dicho trabajo. 
Ahora bien, si no se le indica por 
qu6 canal deseamos imprimir dicho 
texto, Io har6 por el canal seleccio- 
nado anteriormente. 
Dado que el texto se debe impri- 
mir en la ventana inicial de pantalla, 
es decir, en el trozo de pantalla en 
el cual no se ha definido ninguna de 
las anteriores ventanas, deberemos 
seleccionar el canal 0, que es el que 
se da a la ventana inicial cuando se 
inicializa el ordenador. 
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Asi pues, deberemos cargar el 
acumulador con el valor cero y Ila- 
mar a la rutina encorgada de selec- 
cionar la ventana. 
Una vez hecho esto, estamos en 
condiciones de imprimir el texto de- 
seado. Para ello cargamos en el re- 
gistro doble HL las coordenadas en 
las cuales se debe imprimir el texto 
y en DE la direcci6n de dicho texto 
en la memoria. 
Con estos dos registros dobles 
asignados, Ilumaremos a las rutina 

PRINT que es la que se encargar6 de 
la impresi6n propiamente dicha. 
Esta rutina ya se ha utilizado en 
anteriores capitulos y su funciona- 
miento es bien sencillo, ya que Io Oni- 
co que hace es imprimir caracteres 
a partir de la direcci6n de memoria 
indicada en HL, hasta encontrar el 
valor 255, Io cual hace que retorne 
al programa principal. 
Adem6s s61o entrar en dicha ruff- 
na se llama a la rutina del firmware 
que se encarga de colocar el cursor 

en la posici6n indicada por el regis- 
tro doble HL. 
Asi pues, una vez imprimido el pri- 
mer texto, se asignar6n nuevos va- 
lores de posici6n de pantalla y direc- 
ci6n de texto en memoria, y se Ila- 
mar6 de nuevo a dicha rutina. 
Una vez finalizada la impresi6n de 
los textos en pantalla, se llama a la 
rutina que espera a que se pulse una 
tecla, y cuando 6sta se haya pulsa- 
do, retornamos al Basic. 
Por Oltimo haremos una breve re- 

LIST ' DO D SENS, MBL, DO 

AgOg 

A000 AF 
A@gl CD@EBC 
A004 010909 
A007 CD38BC 
ABOA 3E01 
A00C CDB4BB 
AOOF 210000 
A012 110409 
A015 CD66BB 
A018 3E01 
AOIA CD96BB 
AOID CD6CBB 
A020 3E02 
Ag22 CDB4BB 
A025 210ggA 
A028 110413 
A@2B CD66BB 
AO2E 3E02 
A030 CD96BB 
A033 CD6CBB 
A036 3E03 
A038 CDB4BB 
AB3B 211300 
AB3E 111809 
A041 CD66BB 
A044 3E03 
A046 CD96BB 
A049 CD6CB8 
A04C 3E04 
AO4E CDB4BB 
A051 21130A 
A054 111913 
A057 CD668B 
A05A 3E04 
A05C CD9688 
A05F CD6CBB 
A062 3E05 
A064 CD84BB 
A067 210500 
A06A 111204 
AQ6D CD66BB 
A070 3E05 
A072 OO96BB 

10 
20 
30 
40 
50 
60 
70 
80 
90 
110 
120 
130 
140 
150 
160 
170 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
620 
630 
640 
650 

;MODE @ 
; 

; 
;BORDER 
; 

; 
;WINDOW 

0RG #A000 

XOR A 
CALL #BCgE 
9 
LD BC,#0909 
CALL #BC38 
#1,1,10,1,5 
LD A,I 
CALL #8884 
LD HL,#0000 
LD DE,#0904 
CALL #8866 

;PAPER #I,I 
; 
LD A,I 
CALL #8896 
; 
;CLS #I 
; 
CALL #BB6C 
;A CONTINUACICN DEFINIREMO8 
;LAS RESTANTES VENTANAS DE LA 
;MISMA FORMA QUE HEMOS HECHO 
;CON LA PRIMERA 

LD A,2 
CALL #8884 
LD HL,#BAgB 
LD DE,#1304 
CALL #8866 
LD 
CALL #BB?5 
CALL #BB6C 
LD A,3 
CALL #8884 
LD HL,#0013 
LD DE,#0918 
CALL #8865 
LD A,3 
CALL #B896 
CALL #B86C 
LD A,4 
CALL #B884 
LD HL,#BAI3 
LD DE,#1319 
CALL 
LD A,4 
CALL #B896 
CALL #886C 
LD A,5 
CALL #8884 
LD HL,#@@@5 
LD DE,#@412 
CALL #0866 
LD A,5 
CALL #B896 

A075 CD6CBB 660 
A078 3E06 670 
AgTA 21050F 680 
A@7D 111213 69@ 
A080 CD6688 700 
A083 3E06 710 
A085 CO9688 720 
A088 CD6CBB 730 
740 ; 

A@SB AF 
A08C CDB488 
A08F 3E87 
A891 CDggBB 
A094 2189'08 
A097 IICgAg 
AggA CDBCA@ 

ABD 
AOA@ 
AOA3 
AOA6 
AgA9 
AOAC 
AOAF 
A082 
AOB5 

AOB8 
AgS8 

AOB[: 
A08F 
A@C@ 
A0C2 
AOC3 
AOC6 
AOC7 

Ago9 
AgCE 
A@CF 
AgD7 
ABD8 
AODA 
A@DB 
AOE3 

210887 
IICFAO 
CDBCAg 
210D09 
IID£Ag 
CDBCA@ 
210F07 
IIDSAg 
CDBCA@ 

CD18BB 
C9 

CD7588 
IA 
FEFF 
C8 
CD5ABB 
13 
18F6 

53494554 
FF 
56454E54 
FF 
454E 
FF 
50414E54 
FF 

CALL #BBTC 
LO A,6 
LD HL,#BF@5 
LD DE,#1312 
CALL #BB66 
LD A,6 
CALL #8096 
CALL #606C 

750 ;SELECCION DEL CANAL CER0 
760 ;PARA IMPRIMIR EL TEXT0 
770 ; 
780 XOR A 
790 CALL #8884 
800 ; 
810 ;PEN 7 
820 ; 
830 LD A,7 
840 CALL #8890 
850 ; 
860 ;IMPRESION DEL PRIMER TEXTO 
870 ; 
880 LD HL,#0809 
898 LD DE,TXTI 
900 CALL PRINT 

910 ; 
920 ;LA IMPRESION DE LOS DEMAS 
930 ;TEXTOS ES IDENTICA A LA DEL 
940 ;PRIMERO 
950 ; 
960 LD HL,#@7@B 
970 LD DE,TXT2 
988 CALL PRINT 
998 LD HL,Wgg@D 
1000 kO DE,TXT3 
1010 CALL PRINT 
1020 LD HL,#B7@F 
1030 LD DE,TXT4 
1040 CALL PRINT 
1050 ; 
1860 ;ESPERA LA PULSACI DE 
1070 :UNA TECLA 
1088 ; 
1090 CALL #8818 
1100 RET 
1110 ; 
1120 ;RUTINA DE IMPRESION 

; 
PRINT: 
8UC:: 

1130 
1148 CALL #8B75 
1150 LD A,<DE) 
1160 CP 255 
1170 RET 2 
1188 CALL #BB5A 
1190 INC DE 
1200 JR BUC 
1218 ; 
1220 ;TEXTOS A IMPRIMIR 
1230 ; 
1240 TXTI: OEFM "SIETE" 
1250 DEFB 255 
1260 TXT2: DEFM 'VENTANAS' 
1270 DEFB 255 
1288 TXT3: DEFM "EN" 
1298 DEFB 255 
1380 T×T4: DEFM "PANTALLA" 
1310 DEFB 255 



ferencia a una rutina del firmware 
que se utiliza tambi6n para seleccio- 
nar los canales de impresi6n. 
La funci6n de dicha rutina es 0ni- 
camente la de cambiar un canal por 
otro. Asi pues, si hemos definifidos 
dos ventanas en dos canales distin- 
tos, utilizando esta rutina se podrcn 
intercambiar clichos canales. 
El cambio de dichos canales Ileva 
consigo el cambio de los plumas, del 
papel, de la posici6n del cursor, 
mites de la ventana, scroll de la ven- 
tana, estado del cursor, modo de 
critura de texto y de gr6ficos, etc. 
La rutina encargada de producir 
dicho efecto es la siguiente: 
INTERCAMBIO DE CANALES. 
#BBB7 

Produce el intercambio de dos ca- 
nales de impresi6n. El canal actual- 
mente seleccionado se mantiene 
constante. 
Condiciones de entrada. 
El registro B debe contener un 
mero de canal y el registro C debe 
contener el otro. 
Condiciones de salida. 
Se pierde el contenido de los regis- 
tros AF, BC, DE y HL. Los dem6s re- 
gistros se preservan. 
Dado que el n0mero de canal no 
puede ser superior a 8, a la entrada 
en dicha rutina se produce el enmas- 
caramiento de los nOmeros de canal 
para asegurarse de que no sean ma- 
yores a dicho valor. 

PROGRAMA CARGADOR 

18 FOR N-&A888 TO &ABE4 
28 READ A:SUMA SUNA+A 
38 POKE N,A 
48 NEXT 
58 IF SUIIA<>&624F THEN PRINT 'ERROR 
EN DATAS" 
68 DATA 175,285,14,188,1,9,9 
78 DATA 285,56,188,62.1,285,188 
88 DATA 187,33,8,8,17,4,9 
98 DATA 285,182,187,62,1,285,158 
88 DATA IB7,285,188,187,62,2,285 

18 DATA 188,187,33,8,18,17,4 
28 DATA 19,285,182,187,62,2,285 
38 DATA 158,187,285,188,187,62,3 
48 DATA 285,188,187,33,19,8,17 
58 DATA 24,9,285,182,[87,62,3 
68 DATA 285,158,187,285,188,187,62 
78 DATA 4,205,180,187,33,19,1g 
88 DATA ]7,25,19,285,102,187,62 
98 DATA 4205,158,187,285,188,187 
288 DATA 62j5,285,188,187,33,5 
218 DATA 8,17,18,4,285,182,187 
228 DATA 62,5,285,158,187,285,188 
238 DATA 187,62,6,33,5,15,17 
248 DATA 18,19,285,182,187,62,6 
258 DATA 285,158,187285,188,187,17 
5 
268 DATA 285,188,187,62,7,285,144 
278 DATA 187,33,9,8,17,281,168 
288 DATA 285,188,16g33,11,7,17 
298 DATA 287,168,285,188,168,33,13 
388 DATA 9,17,216,168,285,188,168 
318 DATA 33,15,7,17,219,168,285 
328 DATA 188,]68,285,24,187,281,285 
338 DATA 117,187o26,254,255,288,205 
348 DATA 98,187,19,24,24,83,73 
358 DATA 69,84,69,255,86,69,78 
368 DATA 84,65,73,65,83,255,69 
878 DATA 78,255,88,6578,34,65 
388 DATA 76,76,65,255,8,0,8 

1. 0 Es adaptable a cualquer moni- 
tor, inclus0 TV de 26 pulgadas 

2. o Gira hasta 360 ° 

Importado y 
distribuido por: 

4. 0 Protege tu mesa de 10s da0s 
que pueda causar tu monitor 
3. ° Se puede inclinar hacia adelante y 
hacia atr@s (asi evitar6s los reflejos) 

ENFA IBERle_,A, 

CI Balandr0, 39 bis, 2. 0 B. 28042 Madrid. Tel. 742 18 92, 742 91 51. 



SKY-R 

D 

Programa realizado par Jo$g Maria Martlnez Arbex 

El programo es un iuego d.e. uerra que consiste en 
la defensa de una position en tierra baio el 
bombardeo de aviones enemigo$. Existen dos tipos 
de av;.ones: cazas y bombarderos (f6cilmente 
diferenciables par su tomato). Los cazas no 
representan ninggn peligro para nuestras 
poslciones, puesto que no sueltan bomba$. 
Derribarlos aumento nuestra puntuaci6n y nos 
acerca al obietivo fijado. Se ¢onsidera cumplido el 
objetivo initial cuando se han derribado 7 aviones 
enemigos. A medida que se cumple coda objetivo, la 
m6quina Io aumenta en 3 m6s, Io cual hace que al 
final sea imposible sostener la po$ici6n. 

]ara atacar a los 
aviones contamos con un bunker de 
antia6reos con dos posibilidades de 
tiro; corto y largo alcance. Tenemos 
15 abuses de largo alcance y 25 de 
corto alcance. Adem6s contamos 
con una plataforma de misiles tele- 
dirigidos (5 misiles). Con estos me- 
dias hemos de ser capaces de conte- 
ner la invasi6n. El manejo de nues- 
tras armas es un poco complicado al 
principio, pero can unas cuantas par- 
tidas se domino par completo. Las te- 
dos son: 
SHIFT: tiro en corta distancia (bom- 
beado). 
RETURN: lanzamiento de misil. 
ENTER: tiro en larga distancia (rec- 
to). 
SPACE: anu'a disparo efectuado y 
permite disparar de nuevo. 
TECLAS DEL CURSOR: controlan el 
movimiento del misil. 
A: eleva el cafi6n. 
Z: baja el ca6n. 
Es preciso tener en cuenta que al 
derribar un avi6n, 6ste pueda caer 
sabre nuestras posiciones, causando 
daos irreparables. Si el bunker es 
destruido perdemos la posibilidad de 
disparar y si has destruyen el cami6n 
lanzamisiles, ya no podremos em- 
plearlos. Tambi6n nuestros propios 
disparos (no anulados a tiempo), 
pueden destruirnos. Los dafios dismi- 
nuyen nuestra puntuaci6n (Io cual se 
puede comprobar en la tabla final). 
Los aviones salen uno par uno a 

distinta altura y con distinta veloci- 
dad. Ambas (altura y velocidad) son 
tomadas en cuenta para calcular los 
puntos que se otorgan par derribar- 
Io. 
Tambin el tiempo es importante. 
La batalla empieza a primera hora 
de la manana (los horas se marcan 
en la parte inferior y se reconocen 
par el color del cielo) y debe deter- 
nerse la SKY-REED antes del amane- 
cer del dia siguiente, de Io contrario 
perdemos toda nuestra munici6n y, 
evidentemente, samos destruidos. Es 
necesario darse prisa pues al caer la 
noche, la visibilidad del avi6n se re- 
duce considerablemente y las estre- 
Ilas se confunden con nuestras balas. 
Resumiendo, es un juego de pun- 
teria, precisi6n y c61culo en las cai- 
das. Nota: mientras caen las bombas 
enemigas, no podemos disparar, ni 
tan siquiera mover el ca6n. Con el 
misil hay que intentar dar al avi6n en 
la cabina del piloto y desde abajo, 
preferiblemente. 

A: 
' RIABLE 

HORA Marco la hora del dia o de la no- 
che 
MUNICION1 Bolas de largo alcance. 
MUNICION2 Bolas de corto alcance. 
MIS Ngmero de misiles. 
OBJETIVO Ngmero de aviones que es preci- 
so derribar para cumplir el obje- 
tivo de detener la invasi6n. 
AS Contiene D si es de dia y N si 
es de noche. 
DESTR Switch de bunker destruido o no 
(1 6 O) 
DESMIS Switch de lanzamisiles destruido o 
no. 
PUNTOS Contiene la puntualizaci6n total. 
DAIOS Contiene los daos que se sufren. 
ALTURA Altura del avi6n. 
TIP Tipo cle avi6n (caza o bombarde- 
to) 1-2 caza 3 bomb. 
VELO Velocidad clel avi6n. 
ELEV Elevaci6n en grados del ca6n. 
AVDERR Aviones derribados. 
DESVIAC Hace que los abuses de corto al- 
cance sientan la fuerza de la gra- 
vedad. 
BO Indica al progroma si est6 cayen- 
do una bomba. 

BOMX 
BOMY 
MISIL 

YPO 
PORC 

CAS 

ESTR 
NUBE 
MIS 

Coordenadas de la bomba 
Indica al programa si se ha lan- 
zado un misil. 

Coordenadas del misil. 
Obtiene el porcentaje en funci6n 
de los aviones derribados y el ob- 
ietivo. 
Calificaci6n (malo, regular, bue- 
na, etc.) 
NOmero de estrellas, de noche. 
NOmero de nubes, de dia. 
Contiene la forma del misil cuan- 
do cae (divisi6n o divisi6n entera). 

El resto de las variables carecen de importancia 
o son temporales (bucles, contadores, etc.). 
 ===  W Y - R E   -== 
& === -== 
7 --- .].M. ARBX 
9 --- 1.98 
I • ...... 
11 ==- ==- 
120 '--==-==== - .... ::= 
| • ......... :--===---= ......... 
14 ' 
15C " 
16 ' Oefinims ls simbolos rafic 
170 " 
19 CALl ,BCA2:HORA-7:municionl-15: 
MUNICION=25:mi=5objetvo-7: 
?nn SYMBOL AFTER :SYMBOI 3702 
2,62,126I2:SYMBOL 33,1336&,57,16 
,8&I7,74,16?:SYMBOL 64,15, i5,15,1 
515255255255:SYM01 
),74,218,255:SYMBOL 92,0,48,56, 
28,8:SYMBOL 
OI &A24,6A62I2&255I27,12&6A 
]0 SYMBOL 129,0O,O,19,I92:SYMBOI 
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S,A.A.127,255&,I:SYMBOL 
.254,254,255,224,96:SYMBOL 123,128, 
128,143,17.2,15,99:SYMBO| 125,2 
2?0 MODE A:WINDOW#2,1,4AI,15:WINDO 
W#3.b,4(,I,20:WINDOW#4,4,5,16I7:WI 
NDOW#5,5,6,17,19:WINDOW#6,1,20,21,2 
5:PAPFR#69:CIS#6 
23n PFN#6,5:IOCATE#&,2,2:PRINT#6"M 
UNICION AVIONES":LOCATE#6,10,3:PR 
?SO ' Fmpieza I programa n s: co 
mprobaclon@s iniciales d horatio y 
mien i   nn. 
90 i S#2: C| S#4: L S#5: HORA= 
$ABS(HORA<24):falI=O:MOVE O,O:MOVER 
,8A:DRAWR 640,O,4:MOVFR -5-5 
?RA IF HOGAn6 AND HORA2 THFN AS=" 
O" EIE A$="N" 
2gA IF a$="D" THEN INK A2:INK 
INY 2,26:1N .24:INK 4,:INK 9,9:1 
NK b,6:RORDFR 2 
AO IF hora10 OR hora'18 THFN INK 
O, 13:RORDER I% 
31 IF hora=6 THEN m,niion1=A:mm 
cnn2=O:MIS 0 
320 LOCATE#&,IO,5:PEN#6,6:PRINT#6,H 
ORA 
330 
4 ' Dibja el canon. 
350  
36 
37 • Actuala marcadnrs 
380 PFN#6,5:|OCATE#6,1,3:PRINT#6,CH 
R$(123;:PEN#6,6:PRINT#6,mHnionI: 
PEN#&,5:LOCATE#&,I,4:PRINT#6,CHR$I 
25;:pEN#6,b:PRINT#6mnicion2:PEN# 
65:LOCATE#6,1,5:PRINT#&,"M";:PEN#6 
,6:PRINT#6,mis:LOCATE#6,;6,3:PRINT# 
6, avdr 
390 IF (destr AND desmis-1 OR (mun 
icionl+munic:on2-O AND desmis-1) 
(detr-! AND mis=A) OR (mincion1+ 
munJcion2+mis-O) THEN SOSUB 40A:GOT 
0 I%50 E| SF GOTO 440 
40¢ SOUND 1,40015015:SOUND 
250,13 
41 INK A,25:INK I13:PFN :IOCATE 
3,3:PRINT "I N V A S I 0 N";:FOR p- 
I TO |999:NEXT:CIS#2:ENT 

,20,20,3:FOR avion=! TO IO:SO[|NO ; 
180,10,15,1,2,1 
420 TAG:altFa=INT(RND$200)+160:P|O 
T O,O,8:FOR x-64 TO -32 STEP -I&:M 
OVE x,altra:PRINT "% ";:NEXT:NEXT 
:GOTO 1350 
430 TASOFF:RETURN 
440 tp=INT(RND$3)+I:alta=INT(RN 
$2001+20A:ph=&20:velo=INT(RND$121+1 
450 IF a$-"N" THEN INK O,O:INK 1,4: 
l h l< 52&:GOSUB 480:BORDER O:GOTO 49 
0 ELSE GOSUB 460:GOTO 490 
&O FOR N[IBES=I TO 6:a(nubes) INT(R 
ND;570)+50:b(nbes)-INT(RND$1501+20 
:NEXT 
470 n.bes O:TAMA INT(RND$10):FOR NU 
=I TO &:PLOT O0,2:FOR Nube=l TO TA 

MA:TAG:MOVE a(nu),b(nu)=MOVER I,A:P 
RINT "";:NFXT:NEXT:TAGOFF:RETURN 
4B0 FOR estr=l TO 30:PLOT INT(RND$6 
381+IINT(RND1235)+I65,2:NEXT:RETUR 
N 
490 IF MIINICIONI-15 AND MUNICION2=2 
5 AND MIS=5 THEN GOSUB 510 
500 GOTO 590 
510 PEN 2:LOCATE 17,18:PRINT 
3811STRING$(3I43):IOCATF 17,19:PRI 
NT CHR$(I8);STRING$(3,143):IOCATE 
17,O:PRINT CHR$(138);STRING$(3,143 
):PEN I:LOCATE 17,17:PRINT CHR$(22 
)+CHR$(127)+CHR$(127)+CHR$(12711 
520 PEN 9:|OCATF 2,19:PRINT "(":PEN 
I:LOCATE 2,20:PRINT "":IOCATE 3,1 
B:PRINT CHR$(143);CHR$(143):IOCAF 
3,1g:PRINT "";CHR$(143)=LOCATE 3,2 
:PRINT CHR$(14)+CHR$(1431 
530 PEN I:|OCATE 19,16:PRINT EHR$(I 
36):LOCATE 12,19:PRINT ""IOCATE 
,19:PRINT CHR$(143);EHR$(143):LOCA 
TE 12,2:PRINT STRINGS(3,131) 
540 LOCATE ;,;:PRINT CHR$(22)+CHR$( 
t):PEN 4:lOCATE 12,20:PRINT "0 O":P 
EN O:[OCATE 13,19:PRINT CHR$(129):P 
FN ;:PRINT CHR$(22)+CHR$(O) 
550 FOR VENT=O TO 96 STEP 32=MOVE 
35+VENT,IIO:DRAWR O, t2,1:DRANR 
:DRAWR O,-12:DRAWR -12,0:NEXT 
560 PRINT CHR$(22)+CHR$(1);:PEN 
OCATE IO,20:PRINT "<":lOCATE 4,20:P 
RINT "":IOCATE 1817:PRINT "":I OC 
ATE 18,18:PRINT "":IOCATE I8,9:PR 
INT ",'":PFN I:IOCATE 18,20:PRINT 
570 LOCATE ;,;:PRINT CHR$(22)+CHR$( 
;):PEN tI:tOCATE 1,2:PRINT CHR$(24 
R):tOPATF It,TO:PRINT CHR$(?49):InC 
ATE 12O:PRINT CHR$(24S):PEN 
ATE 1,20:PRINT STRING$(?O,"#");:PEN 
I:tOCATE t,I:PRINT CHR$(22)+CHR$( 
580 RFTURN 
590 TAGOFF:elev=45:IF TEST(127,1271 
A THEN detr-O:MOVE It?8:DRAWR 
COS(elev)$20,SIN(elev)$25,3 ELSE de 
str=1 
600 IF TEST(445, IIO)=A THEN DESMIS= 
I 
61 IF demis-O AND misO THFN I. OCA 
TE ;,;:PRINT CHR$(22)+EHR$(t);:LOCA 
TE 14,1S:PRINT "\"+CHR$(R);:PFN 7:P 
RINT"_";:PFN I:IOCATE t,I:PRINT CHR 
$(221+CHR$(111 
620 GOSUB 70 
640  Otecinn dl tclado. 
660 IF TEST(445,1101=A THN ESMIS- 
! 
670 IF avder=ob|etivn THFN OTO 
320 
690 PRINT CHR$(22)+CHR$(I 
700 GOSUB 850:GOTO 
710 RETURN:PAPER S::IOCATE 1,23:PR1 
NT "LARGO ALCANCE: ";municonl;:IOC 
ATE ;,24:PRINT "CORTO ACANCE: 
niron2;:PAPER O:RETURN 
720 IF a$-"N"THEN GOSUB 480 ELSE 
OSUB 47A:RETURN 
7n IF destr-1THFN 78 
740 IF NOT INKEY6) AND municion1O 
THEN MUNICIONI-MUNICIONI-I:desviac 
-O:LAR=O:GOSUB I010:GOSUB 710:CLS# 
:MOVE 12B,128:DRAWR COSelev)$25,SI 
N(Iv)$25,3:GOSUB 720 
750 IF NOT INKEY(21 AND m(nicion2 
0 THEN MUNICION2=MUNICION2-I:des¥ia 
c=A:IAR=I:GOSUB I010:GOSUB 710:CIS# 
2:MOVE 128,128:DRAWR EOS(elv$25S 
IN(elev)25,3:GOSUB 720 
760 IF NOT INKEY691 THEN 
#5:Iev-Iev÷65ABS(ELEV<174:MOVER 
-2,2:DRAW 128,128,0:DRAWR COS(elev) 
$25,SIN(elev$25,3 
770 IF NOT INKEY(71) THEN CLS#4:CLS 

#5:elev=elev-6$ABS(ELEV>-40:MOVER 
IO:DRAW 128,18,0:DRAWR COS(elev)$ 
25,SIN(elevi$25,3 
780 IF dmis-I THEN 800 
79 IF NOT INKEY(18 AND mis>O THEN 
mis=ms-l:GOSUB 1230:IF fall-O THE 
N GOTO 270 
RO0 ' 
SO ' Si no se pu]sa tecla mov. de 
I avion 
820 ' 
830 GOSUB 850:GOTO 950 
840 ' 
850 TAG:PIOT A,O,;:MOVE ph,a|tHra:I 
F tp=3 THEN PRINT "&•"; .... ;:SOL|NO 
500,5,5,,,1:ph=ph-3-vIo:GOTO 870 
60 PRINT "%":" ";:SOUND 
,I:ph=ph-3-velo:ALTURA-A|TURA+INT( 
S7A IF (ho=l OR INT(RND$100111 OR 
tip<3 THEN 930 
SA TAGOFFPRINT CHR$K22)+CHRS(I);: 
TA 
890 bo=1:bnmx=ph+5.homy=altra-5:FO 
R bomba-bomy TO 90 STEP -4:TAG:PLOT 
O,O,O:MOVE bomx,bomy:PRINT 
mx=bom-2:omy=hnmy-4:P| OT 
VE nmx,omy:PRINT ".";:SOUND Ibom 
ba,7,10 
9AC IF bomy>150 THEN 910 ELSE IF TE 
STR(O,-5)O OR TESTR(8,01<O THEN 
SOSUB 1210:bo=O:OTO 930 
910 IF INT(RND$101I THEN 920 EiS 
GOSUB 40 
920 NEXT 
9xO IF hn-1 THFN ho=O 
940 TAGOFF:RETURN 
950 IF PHb-16 THEN 730 ELSE CIS#2:G 
OTO 270 
960 
970 " Vuelve a comprobar tecla o mo 
vr avion 
980 " Ha habido Hn disparOo.. 
990 " 
I000 
1010 y=178÷SIN(elev)$25:x=128+EOSe 
Iev)$25:TAS:PLOT O,O,6:MOVE 
PRINT "";:PLOT O,O,3:MOVF x,y+1&P 
RINT "'";:MOVE x,y+I6:PRINT " ";:TA 
GOFF:SOUND ;,300,8,15,,,8:MOVE 
w=COS(elev)$4:e-SIN(elev)4:FOR dis 
=1 TO 700 STEP 4:UNO=XPOS:DOS=YPOS 
1020 desvlac-desviac+O. O3:IF INT(N 
0I01<2 THEN bo-I:GOSUB 850:bo-O:MO 
VE UNO,DOS:PLOTR w,e-desvlacIAR,2 
ELSE PLOTR w,e-devacSLAR,2 
1030 

 c,oeoer AMSTRAD 23 



1040  Cnmpruba si da al avzon 
1050 
1060 
I070 IF YPOS<90 THEN TAG:PLOTR -20, 
IO,4:PRINT "";:PIOTR -25,5,3:PRINT 
"#';:SOUND 1,200,10,15,,S:RFTURN 
10RA IF TESTR(I,2)-! THFN TAS:PI OTR 
-20,1a,4:PRINT "";:PIOTR -25,5°3: 
PRINT "#";:SOUND 1,200, 
YF'OSIRO THEN GOSIIB I170:GOTO 27n 
FISE TAGOFF:LOCATF 5,5:PRINT " 
dado...":danos=danos+5:FOR pau 0 TO 
999:NEXT:GOTO 1090 
I90 PLOTR -I,-2,0 
110 IF NOT INEY(47) THEN RETURN 
111(: NEXT dis 
1120 RETURN 
II0 ' 
1140 " R.tina do cazda dl avinn 
1150 ' 
1160 
1170 IF tzp=3 THEN MOVER -32,-5:PRI 
NT .... 
II0 TAG:avderr-avderr+1:puntos-pin 
tos+O+INT(altura/1OO)INT(XPOS/100 
I+veln:FOR cada-altra TO 92 STEP 
-4:ph=ph-caida/65:SOUND I,ABS(PH$1. 
5),2,5:PIOT ph,caida, 1:IF INT<RND4 
)2 THEN PRINT "\"; ELSE PRINT "/" 
1190 IF TESTR(O,-I)<O AND cida<15 
0 THEN dans=danos+4 
1200 NEXT:danos-danos+1:PLOTR -32,0 
,3:PRINT "#";:PLOT O,O,I:MOVE 0,-16 

IP10 MOVER -32,15:PRINT "";:PIOTR 
-32,0,3:PRINT "#";:FOR mtsc=400 TO 
90 STEP -1:SOUND l,misic, lO, lO,,, 
8:NEXT:RETURN 
1220 • 
1230 mi$="\":po 416:ypo=I25:FOR MI 
SIL=I TO 20:SOUND 1,300+MISIL,2,15, 
,,I:XPO-XPO-2:YPO=YPO+2:PLOT 0,0,6: 
MOVE XPO,YPO:PRINT CHR$<5)+MI$;:NEX 
T:FOR msl-1 TO IO0:MOVE xpo,ypo:P 
RINT CHR$(5)+m$;:ypa=ypo÷3:IF ypo 
420 THFN FAL[=I:RETURN 
1240 IF ypo<100 OR TESTR(8,-14)<>O 
THEN GOSIIB 1210:PLOT O,O,3:MOVE XPO 
,YPO:PRINT "#"I:TAGOFF:RETURN 
1250 IF altua+4ypo AND a]ta-4<y 
po AND ph-9<xpo AND ph+9>xpo THEN T 
AG:PLOTR -20IO4:PRINT "":PIOTR 

-P5,5,3:PRINT "#"; .'SOUND I ,PO0, I0, I 
5, , , 8: TAGOFF: GOSUB I 170: RETURN 
1260 IF NOT INKEY(8) THEN mi$="\":x 
po=xpo-4 
1270 IF NOT INKEY(1) THEN m$="l": 
12 IF NOT INKFY(O} THFN ypo:ypa2 
1290 IF NOT INKEY(2) THEN ypo=ypo-6 
300 IF RND0.5 HEN bn=I:GOSHB 850 
: h-O 
1310 NEXT misil:TAG:PkOT XPO-YPO 
+5,3:PRINT "";:PLOTR -20,5,6:SOU 
1,200, 10, 10,,,5:PRINT "#";:dans=d 
anos-(5YPOS<I30):SOUND 1,250, 
, , 6 : TAGOFF : FALL= I : CLS#2: RETURN 
320  S se ha consegudo deten 
1340 ' 
1350 SYMBOL AFTER 56:MODE 1:PAPFR 
O:CLS:PEN O:CALL &BCO2:BORDER 13: 
DOW 103818:APER I:CLS:MOVE 140 
 10:DRAWR 3900 I:DRAWR O,184:DRAW 
R -390O:DRAWR 0-184 
10 IF DFSTR=I THEN DANOS=DANOS+IO 
1370 IF DESMIS-1 THEN DANOS=DANOS+I 
0 
 I ) :[ OCATF 2 :PRINT "DESPFRFECTOS: 
" danos: [ OCATE 2 4: PRINT "PUNTUACI 
ON: ";punto:LOCATE 26:PRINT "PO 
ENTAJF : "porc;"%" 
139A I OCAT 28:PRINT "AVIONES DER 
I D: "  avderr : I F pore< I THEN c aS 
="PESIMO" 
1400 ;F pnrc>=10 AND pore<20 THFN 
a$="MA 0" 
1410 IF porch-20 AND pore<50 THN c 
1420 IF pnrr>=50 AND pnrc<70 THFN 
aS=NORMAL" 
1430 IF pore>=70 AND porc<90 THEN c 
aS= "BUENO" 
1440 IF poC>=90 THN ca$="ECEkNT 
1450 IF ca$="EXCEENTE"AND obetiv 
o20 THEN ca$='GENIAL" 
1460 OCATE 2IA:PRINT "NIVEL: ";ca 
$; 
1470 MOVE O,O:DRAWR 639,0,2:DRAWR 0 
,399:DRAWR -638,0:DRAWR 0,-399 
1480 MOVE O,O:DRAW 40,106,1:MOVE 
40,O:DRAW 530, 06:MOVE 640,400:DR 
530,290:MOVE 0,400:DRAW 140,290 
I90 WHILE INKEY$<"":c$=INKEY$:WEN 
D:$="":WHIIE c$="":c$=INKEY$:WEND: 
PAPER O:IF avderr obetivo THEN ob 
eti vo=obeti vo+3: avder-O:municion I 
=15: mun cin2=25:mis=5:hora=7: DESMI 
S=O:DSTR=O:GOTO 1500 ELSE RUN 
1500 MODE I:BORDR O:PAPER 2:CALL 
BCO2:CLS:LOCATE 2,24:PRINT "Nuevo 0 
betivo: derr bar" ; obet i vo; "avione 
s."'WHILE NKEY$<>":WEND:WHH E INK 
EY$=" ":WEND:PAPER O:GOTO 200 

ompatible: CPCI464, ¢PCI664 y ¢P¢/6128 

I00.000 PESETAS 
CON MICROHOBS Y 

AMSTRAD 

SEMANAL 

Porque pretendemos que ASTRAD 
SEMANAL sea tambidn vuestro revista, 
hemos abierto una secci6n en la que se 
publicar6n los mejores programas origi- 
nales recibidos en nuestra redacci6n. Vo- 
sotros ser6is los encargados de reatizar 
estas pdginas, en las que podrdis apor- 
tar ideas y programas interesantes pa- 
ra otros lectores. 
Las condiciones son sencillas: 
-- Los programas se envior6n a AMS- 
i'RAD SEMANAL en una cinta de casset- 
te, sin protecci6n en el software, de for- 
ma que sea posible obtener un listado de 
los mismos. 
- Cada programa debe ir acompa- 
ado de un texto explicaHvo en el cual 
se incluyan: 
-- Descripci6n general del programa. 

-- Tabla de subrutinas y variables uti- 
Iizadas, explicando claramente la 

funci6n de cada una de e#as. 
-- Instruccianes de manejo. 
-- Todos estos datos debergn ir escri- 
tosa m6quina o con letra clara para ma- 
yor comprensi6n del programa. 
- No se admitirgn programas que 
contengan caracteres de control, debi- 
do a que no son correctamente interpre- 
lados par las impresoras. 
-- En una sola cinta puede introducir- 
se m6s de un programa. 
-- Una vez publicado, AMSTRAD SE- 
MANAL abonar6 al autor del programa 
de ]$.00g a 10O.00O pesetas, en con- 
cepto de derechos de autor. 
-- Los autores de los programas selec- 
cionados para su publicaci6n, recibir6n 
una comunicaci6n escrita de ella en un 
plaza no superior a dos meses a partir 
de I0 fecha en que su progroma Ilegue 
a nuestra redacci6n. 
-- AMSTRAD SEMANAL se reserva et 
derecho de publicaci6n o no del progra- 
ma. 
-- Todos los programas recibidos que- 
dar6n en poder de AMSTRAD SEMA- 
NAL. 
-- Los programas sospechosos de pla- 
gio ser6n eliminados inmediatamente. 

|ENVIANOS 
TU PROGRAMA! 
Ad/untando los siguientes datos: 
Nombre y apellidos,, 
direcci6n y tel6fono. 
Indicando claramente en el sabre: 

AMSTRAD SEMANAI 
a HOBBY PRESS, S. A. La Granja, 39 
Pol. Ind. Alcobendas (Madrid) 
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Inform  tica 
Presenta: la tableta gr  fica 
GRAFPAD II- 
LO ULTIMO EN DISPOSIXIVOS DE ENXRADA DE GRAFICOS 
PARA AMSXRAD, COMMODORE Y BBC 
La primera tableta grifica, de bajo costo, en ofrecer la duraci6n y prestaciones requeridas por las 
aplicaciones de negocios, industria, hogar y educaci6n. Es pequefia, exacta y segura. No necesita 
ajustes ni mantenimiento preventivo. GRAFPAD !! es un producto finico que pone la potencia de 

la tecnologia moderna bajo el control del usuario. 

DIBUJO A MANO ALZADA 
SOFTWARE DE ICONOS 

DISEO DE ARQUITECTUR 
CON SOFTWARE DD 

COMBINA EN UN UNICO DISPOSITIVO TODAS LAS 
PRESTACIONES DE LOS INTENTOS PREVIOS DE 
MECANISMOS DE ENTRADA DE GRAFICOS. LAS 
APLICACIONES SON MAS NUMEROSAS QUE EN LOS 
DEMAS DISPOSITIVO COMUNES E INCL EN: 
• ,'i" i6n de opcion: * entrada de model * ecogida de 
datos * o ".'iio 16gico * oisefio de circuit,- * creacion de 
imigenes • aimacenamiento de imfige,- • recuperaci6n de 
imigenes • ,i i'o para construcci6n • .A.D. "seiio asistido 
por orde or • ilust i6n de textos • jueg,, • disefio de 
muestr. • educaci6n • diseiio PCB. 

ESPECIFICACIONES 
RESOLUCION: 
1.280 x 1.024 pixels. 
PRECISION: 
1 pixel. 
TASA DE SALIDA: 
2.000 pares de coordenadas por 
segundo. 
INTERFACE: 
paraleio. 
ORIGEN: 
borde superior izquierdo o 
seleccionable. 
DIMENSIONES: 
350x260x 12 mm. 
DISPONIBLE AMSTRAD: 
CASSETTE ... 23.900 ptas. 
DISCO ........ 25.900 ptas. 
(IVA NO INCLUIDO) 
• ACIL DE USAR. 
• RAZADO PCB. 
• .A.D. 
• AREA DE DISEO DIN A4. 
• OLOR EN ALTA 
RESOLUCION. 
• USO EN HOGAR Y 
NEGOCIOS. 
• VARIEDAD DE PROGRAMAS 
DISPONIBLES. 
• DIBUJO A MANO ALZADA. 
• DIAGRAMAS DE CIRCUITOS. 

DE VENTA EN LOS MEJORES COMERCIOS DE INFORMATICA 
Si Vd. tiene alguna dificuitad para obtener ia tableta grdfica puede 
dirigir 
Avda. Isabel !!, 16 -8  
Ofites Tels. 455544-455533 
Informfitica T 
20011 SAN SEBASTIAN 

CONDICIONES ESPECIALES PARA DISTRIBUIDORES 



£STRUCTURA$ DE DATO$ (I) 
PILA$ 

Basic en cuesti6n de estructuras est6 bastante desprovisto. Lo 
(mica estructura que puede utilizar Basic es la Matriz. Sin 
embargo, basra un poco de ingenio para que esta fimltaci6n 
del Basic se desvanezca ante nuestra imaginaci6n. 

a Matriz es un 
conjurto de datos de la misma natu- 
raleza, que se almacenan juntos. A 
esta etructura se le Ilamo estctica ya 
que no se altera, en el n0mero de sus 
eleme tos, durante el tra scurso del 
programa; ocupando todo el espa- 
cio de memoria que nec-sita, hasta 
que se elimine la mismo. 
En este articulo vamos a tratar las 
estructuras dinmicas de datos, es 
decir, aquellas que varian sus ele- 
mentos, en la medida en que les ha- 
ce falta. Estas estructuras son, a sa- 
ber: 
PILAS; LISTAS; COLAS Y ARBOLES 

A cada una de estas estructuras di- 
no, micas de datos, le dedicaremos un 
articulo completo. 
Empezaremos por la m6s sencilla 
de todas: LA PILA 

;Qu es una pila? 

Una pila, conocida tambi6n como 
lista directa, es una serie de datos 
que s61o pueden extraerse o introdu- 
cirse por uno de sus extremos. Por 
ello se dice que una pila es una es- 
tructura del tipo 01timo en entrar -- 
primero en salir, UEPSA o LIFO en 
Ingles (last in, First out). 
El extremo par el que se accede a 
la pila se le llama cima y al final de 
la misma se le conoce como base de 
la pila. 
Las pilas s61o admiten dos opera- 
ciones, a saber: 
SITUAR un elemento nuevo en la 
cima, a esta acci6n se le llama intro- 
ducir o apilar un elemento (push, 
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para los que conocen el lenguaje en- 
samblador), y SACAR un elemento 
de la pila, que se conoce como ex- 
traer o vaciar la pila (pop en ingl6s). 
Para trabajar con estas estructuras 
se utiliza una variable Ilamada pun- 
tero; que indica la posici6n de otra 
variable en la memoria del ordena- 
dot. 
Basic no posee punteros y, por tan- 
to, deberemos utilizar como medio 
de almacenamiento otra estructura 
con la que todos estamos familiari- 
zados, la matriz o array, y utiliza- 
remos como puntero una variable, 
que almacenar6 el valor del indice 
del 01timo elemento introducido en la 
pila, el valor m6s alto de la matriz en 
el caso de que la pila se encuentre 
vacia. 

C6mo representar 
una pila en Basic 

Seg0n Io dicho anteriormente la 
0nica forma de trabajar con pilas en 
Basic es utilizar las matrices; alma- 
cenando todos los elementos de la 
estructura en la matriz. Por ello te- 
nemos la primera limitaci6n: 
--La pila no puede hacerse nunca 
mayor que la matriz. 
Normalmente y por convenio, se 
pone la base de la pila en el 01timo 
elemento de la matriz, asi consegui- 
mosque esta estructura crezca <ha- 
cia arriba dentro del array, y est6 
Ilena cuando IlegGmos al primer ele- 
mento de la matriz. 
El puntero de una pila equivale al 
indice del primer elemento libre del 
array, empezando siempre por el 
elemento mayor de la misma, de es- 
ta manera continuamente podremos 
determinar si la pila est vacia, o Ile- 
na, ya que el puntero coincide con 
el 01timo elemento de la matriz, o con 
el p.rimero, si est6 Ilena. 



La figura 1 ilustra gr6ficamente el 
concepto de pila. 

Creaci6n de una pila 
en Basic 

Vamos aver ahora una serie de 
m6dulos de programa, enti6ndase 
subrutina, en los cuales vamos a si- 
mular, todos los procesos de mani- 
pulaci6n de una pila. 
Todo esto Io vamos a desglosar en 
una serie de pasos, Io que se conoce 
por algoritmo. En el programa ejem- 
plo podemos ver todas las subruti- 
nas, ya codificadas en Basic. El algo- 
ritmo general es el que sigue: 
Crear una pila vacia. 
Introducir un elemento en la pila. 
Extraer un elemento de la pila. 
Vaciar e imprimir la pila. 
Todo esto se presenta en el pro- 
grama en forma de men0, para ele- 
gir cualquier acci6n y ver c6mo se 
comporta esta estructura. 
Ve6moslo todo m6s desgranado. 

PILA 
VACIA 

M lg 
DIM PILA IMI 

P M 

VOLVEI 
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Creaci6n 
de una pila vacua 

SegOn Io explicado anteriormente, 
una pila est6 vacia, cuando el pun- 
tero de la misma indica el valor del 

I IN[RODUCIR 
ELEMENTO I 

PILA 

elemento mayor de la matriz. Por 
tanto, este m6dulo crea y sit0a el 
puntero de la pila, apuntando a la 
base de la misma. 
Esta opci6n es condici6n indispen- 
sable para que el programa funcio- 
ne correctamente. 
El algoritmo es el siguiente: 
Hacer M = 1 0 
Dimensionar la matriz PILA con M 
elementos. 
Hacer el puntero (P) igual a M. 
Volver. 
El diagrama d flujo de la figura 
2 representa gr6ficamente este algo- 
ritmo. 

Introducir 
un elemento en la pila 

El algoritmo que indica el funcio- 
namiento de esta subrutina es el si- 
guiente: 
Si la pila est6 Ilena ira la subruti- 
na de aumentar pila. 
En caso contrario: 
Insertar el elemento en el lugar in- 
dicado por el puntero de la pila. 
Decrementar puntero. 

Confirmar la introducci6n. 
Volver. 
El diagrama de flujo correspon- 
Jiente es el de la figura 3. 

Aumentar pilas 

Crear una matriz con el mismo n0- 
mero de elementos que la pila. 
Traspasar todos los elementos de 
la pila a la otra matriz. 
Borrar pila y dimensionar con diez 
elementos m6s. 
Volver a situar todos los elementos 
en la pila. 
Localizar el puntero en su lugar co- 
rrecto. 
Volver. 
La representaci6n grgfica de es- 
te algoritmo corresponde con la fi- 
gura 4. 
IMPR MIR 
ELEMENTO / 
ONFIMAR I 
Y BORRAR 
OATO 

Extraer un elemento 
de la pila 

Este m6dulo funciona de la siguien- 
te manera: 
Si la pila est vacia indicar el fallo 
y volver. 
En caso contrario: 
Imprimir el valor del elemento que 
indica el puntero. 
Incrementar el puntero en uno. 
Confirmar y volver. 
La pila est6 vacia si el puntero in- 
dica al 01timo elemento de la matriz. 

El diagrama de flujo correspondien- 
te es el de la figura 5. 

AMPLIA ) 
TRASPASAR I 
ELEMENTOS 
DE PILA A SEC 

BO,RA PILA i 
M Mtl(] 
OIM PILA[M) B 
ELEMENTO$ 
OE SEC A PILA 
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Vaciar la pila 

El algoritmo es muy simple y es el 
que sigue: 
Repetir desde uno hasta el nOme- 
ro m6ximo de elementos de la ma- 
triz: 
Imprimir el elemento en curso de 
la matriz. 
Poner a cero el mismo elemento. 
Hacer el puntero igual al nOmero 
m6ximo de elementos de la pila. 
Confirmar y volver. 

Algunos usos 
de los pilas 

Los pilas son muy usadas en infor- 
m6tica. Principalmente por las subru- 
tinas del sistema, la mayoria de los 
intrpretes de Basic utilizan los pilas 
para mantener el control de subruti- 
has, esto Io hacen de la siguiente for- 
ma: 
Cuando se ejecuta un gosub los 
nmeros de linea e instrucci6n son al- 
macenados en la pila. 
Si se ejecuta un return se extraen 
los dos elementos superiores de la pi- 
la, para devolver el control al punto 
donde se hizo la Ilamada, sila pila 

.ISTA 
DE 

SUBRUTINA$ 

10-30 Comentar/os 
40-90 MemJ de opciones 
100-130 Contro/ de subrutinas 
140-190 Crear pila 
200-280 Introducir un elemento 
290-350 Extraer un elemento 
260-480 Vacior e imprimir pila 
490-620 Ampliar pila 
630-640 Pausa 

est6 Ilena o vacia se produce el 
error. 
En algunos ordenadores se utilizan 

IMPRIMIR I 
ELEMENTOS 
I BORRAR I 
PILA 
COMPROBAR J 

LISTA 
VAe  A    ES__ 

ila Matriz que representa la 
pila 
Sec Matriz para ampliar la 
pila 
I$ Almacena el valor de 
INKEY 
M Ndmero mximo de 
elementos de la pila 
p Puntero de la pila 
Elem Variable temporal que 
contiene el elemento a 
introducir en la pila 
N Variable de control  

para el tratamiento de interrupciones 
y organizaci6n de la memoria, en es- 
te caso se utilizan uno o m6s regis- 
tros para controlar la pila; estos re- 
gistros actOan de punteros. 

I REH prnlrama 
20 REN del 
 REM dsde 
40 CLS 
5 LOCATE 7,2:PRINT "CREAR PII-A'IST 
60 LOCATE 7,4"PRINT "NTROIJCTR UN 
ELEMENTO...?; 
7 LOPATE 76-PR;NT "FXTRAER IJN EI_E 
MENTO ...... 
80 LOCATE 78:PR]NT "VACIAR PII_A"|S 
9A LOATF 1422:PRINT "ELIGF OPCION 
]00 $ UPPER$(INKEY$:TF IS-"" THEN 
110 TF ASC(I$)48 OR ASC(I$)53 THE 
N 3 
12 ON 
t'g GOTO 
|40 REM CREA PILA 
15 CLS 
]6A m=IA. OIM plaM) 
]7 P=M 
180 LOCATE 146.PR]NT mPILA CREADA" 
:GO'LIB 490 
19 RETURN 
2 RE NTRODIJtR UN 
2 
L LLEN ESPEE tin NTO'tGOtlB 
2 LOCTE 9=[NPUT "TNTRODE N 
ELEENTO"ELE 
240 
50 P P-I 
2& LOCT 9=&IPRINT "EL ELEENTO " 
77O GOSUB 
?80 RETURN 
29A REM EXTRAE EI_EMFNTO 
00 Cl S 
xl IF P-M THEN LOCATE 154:PRINT'P 
ILA UAIA":GOSUB 630:RETURN 
320 LOATE I6:PRINT "EL ELEMENTO 
;P;" S ";PILA(P) 
XO PILA(P)=" P=P+I 
340 GOSUB 
35 RETURN 
 REM VAIAR PILA 
7 CLS 
38 LOCATE 5t:PRINT "ELEMENTOS QUE 
CONTIENE LA PILA';M 
390 LOCATE 62:PRINT PII_A LLNA HA 
STA ELENTO ";ABS(P-M) 
400 FOR N-M TO I STEP 
410 PRINT PILA(N) 
420 PILA(N)-O 
430 NEXT 
44 P=M 
450 LOATE 1224:PRINT "PULSA UNA T 
ECLA" 
6 I$ INKEY$:IF I$-'' THFN 460 
470 LOCATE IO,24"PRINT " PILA BO 
480 RETU 

4q REM AMPLIAR PILA 
500 DIM SEC(M) 
510 FOR N=I TO M 
520 SEC(N)=PILA(N) 
53 NEXT 
540 ERASE PILA 
550 M-M+IO 
5&O DIM PILA(M) 
570 FOR N-M TO 10 STEP 
580 PILAfN)=SE(N-O) 
590 NEXT 
6|0 ERASE REC 
620 RETURN 
&O FOR N=! TO 2000:NEXT 
640 RETURN 
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TU PU D 

 ,, 
• • 
iComo Io eyes! TQ puedes estar informado antes que nadie de todas las novedades. 
que aparecen en el mercado, tener acceso a programas exclusives y a precios 
especiales, poder conseguir los truces que te ayuden a salir de esa pantalla que se te 

resiste, regales, p6sters, sorteos, plegatinas.., y un montSn m&s de ventajas. 
APUHTFITE YA FIL LUB 
No Io pienses m&s. Site apuntas ahora al Club ERBE vas a recibir, adem&s, 

come regale, de nscrilc'@: ...-. .:.."\ 
. El juego que m&s te guste den estro cat&logo* \". t /'l(- - ; ' 
 Una fabulosa camiseta  '"  con el anagrama del Club. 
 Tu carnet persona de socio, que te dar& derecho a110% de desc entq 
entodos los juegos de ERBE que compres, durante un aSo, en cualquiera " 
de os establecimientos que aqui al lade se refacionan. (o a travs del Club si en tu 
 zona no existiera ninguno). 
_ CARNET VAClLON  " JUEGO FLIPANTE 
 PARA COMPRAR UN 10% . 
I  " c,s oo 
TODO PeR SOLO 3.000 PTS... UN AUTENTICO CHOL£O 

| 
Elige ya tu 'uego, corre al telfono y II&manos al (91 447 34 10 o escribenos a ERBE SO'IWARE 
C/. "anta Engracia, 17. 28010 Madrid para hacerte socio o pedir m&s informaci6n. 

* QUEDAN EXCLUIDOS LOS PROGRAMAS EN D/SQUETE 



DISTRIBUIDORES AFILIADOS 

ALAVA 
OATAVI.Avda Gasteiz 29, VITORIA 
ALMERIA 
[NFORMATICA-ELECTRONICA. Arap=les, 22. 
ALICANTE 
INFORTRONICA DO¢lOF J=mnez Daz 2 ELCH-_ 
MICRO CENTRO. Csar Ezquezabal. 45, ALICAI, ITE. 
MULT]SYSTEM. $ Vicente, 53. ALICANTE. 
COOE-2000. Ramn y Catal. 3 DENIA 
SILICON VALLEY. G'onela, 4, semis6tano ELCHE (AlnteJ, 
ASTURIAS 
CASA-RADIO MIERES. Jerbnimo Ibran, 11 I¢IERES. 
SOVI ELECTRONICA, Cabrales, 31. GIJON 
BERNE. *,fenr ez Val3es, 13. GIJON. 
RAOIO-NORTE. Ur'a 20, OV EOO. 
IMAGEN. Pab Iglesias, 83. GIJON. 
COMERCIAL ARANGO. Marcos de Termiello, 2 AVILES. 
CUADRADO INFORMATICA. Toreno. 50VlEDO, 
AVILA 
DISCO-70. Plaza Sta. Teresa. I 
BADAJOZ 
SONIDO RUI}IO. Avda Fdez. Calzad la, 10. BADAJOZ 
RADIO GRAJERA San Jo, 11 ALMENORALEJO 
BALEARES 
ERGON. Falangisla Laport la, 2. P MALLORC ' 
PRODONT, Exlremadura, 31. IB{ZA 
CO4PUSHOP, V=aAlemania, 1" P. I,IALLORCA 
TEKNOS, Aragon, 30, P, MALLORCA 
CADIZ 
PARODI.DISCOS. Novena 

CASTELLON 
CASIO, S. A, Sat] Vcente, 6, Avda, Ray Don Jaime 74, 
APARATOS, Mayor, 32, VINAROZ. 
LA CORUA 
PHOTOCOPY. Juana de Vega 9-3,. 
GERONA 
CENTRAL FOTO, Clsa. de San Fehb, 28 PLATJA D'ARO. 
GRANADA 
INFORMATICA-ELECTRONICA Veihor magro, 8 
GUAOALAJARA 
ABI. Padre Fttl FIore, 3, 
GUIPUZCOA 
SABA.Fuenterrabia 14. SAN SEBASTIAN 
AMASONIK, Paseo Col6n. 80-82, IRUN. 
HUELVA 
RADILUX. Concepc 6n, 6. 
LEON 
MICRO BIERZO. Carlos I, 2.1:3NFERRDA. 
LOGRORO 
COMPUTER PAPEL Caslrovielo. 19. 
LUGO 
MED INFORMATICA Avda Ramn Ferrero, sn 
MADRID 
HIESA INFORMATICA. Camino V nateros, 40. 
INSTRUMENTOS MUSICALES ANGEL Plaza Espena, 2 (Io,;al 9). LEGANES. 
CO PUTIOUE.Embadoes,90. 

MALAGA 
TODD INFORMATICA Avda. Aurora, 14 
INFORMATICA EUROPA Mofeno Ca bonero (Ef. CarboneroJ, FUENGIROLA 
ORGANIZACION EIIRESAS, RCa,'do Sot anD. 35. M,RBELLA 
TELEVISION PAS. I, Euseb Rarefez, 2 SAN PEDRO ALCANTARA 
MURCJA 
MEMORY SHOP. Lepanto, 1 
NAVARRA 
MICROOIIOENADORES RAMAR. Navarro V, oslada 7. 
PN,,IPLONA 
OftENSE 
ALMACENES MENDEZ Capii Coilt.s, 17. 
PALENCIA .. 
LA ESFERA Mayor, 87. 
SANTANDER 
RADIO MARTINEZ Dclor Jmttnez Oiaz, 13 
TOLEDO 
CALCO. Angel de #JcAzar. 56 TALAVERA DE LA RE NA 
VALENCIA 
RADIO COLON CoI, 7. 
ELECTRONICA MORANT. Ja rre Tres, 12, GANDIA 
VALLADOLID ...... 
CHIPS AND TIS. P aza Tenefia 11. 
I/ItCROLIO. Gfeaorio Fernandez, 6, 
VIZCAYA 
RE.AT. General Conga, 12. BILBAO, 
EPROM 2. Juan XXI I, 3. SANTURCE. 
ADA COMPUTER. Ilepender a 24-28, 

E$CRITURA 
ITALICA 

Juan Bad[a Font 

e trata de una pe- 
queSa rutina que permite mejorar la 
presentaci6n en pantalla de progra- 
mas propios, ya que a5ade un nue- 
vo tipo de letra: la it61ico o inclina- 
da. Asimismo permite tambi6n ver 
c6mo quedar un determinado rex- 
to una vez pasado a impresora (si 
tiene este tipo de letra) antes de im- "t " 
primirlo, etc. 
Para introducirlo en tus programas 
tan s61o debes insertar las lineas 
60-160, cambiando solamente las 
variables m, n de la linea 80 por las 0 
coordenadas en que deseas que 
dparezca el texto en it61ica, y atribuir i q ' 
a la variable alfanOmerica pS la pa- 
lak, ra o palabras que deber6n ser es- 
critas en este tipo de letra. 
El funcionamiento es sencillo: el  ' / 
programa escribe la palabra en el 

borde inferior de la pantalla,y 
ra)) si cada punto est6 encendido o 
apagado. En caso de estar ilumina- 
do con un color de tinta diferente de 
O, imprime otro punto en el lugar de 
pantalla que hayamos indicado, su- 
m6ndole un nOmero creciente (x) pa- 
ra que se desplace a la derecha pro- 
gresivamente, de los puntos inferio- 
res a los superiores, y nos proporcio- 
ne la letra inclinada. Las lineas 
130-160 hacen solamente que el cur- 
sor se tranlade al final de Io que he- 
mos imprimido en itlica para poder 
seguir escribiendo a continuaci6n en 
letra normal. 



a  guna 

A trav6s de esta secci6n se preo 
tende resolver, en la medida de Io 
posible, todas las posibles dudas 
que (atormenten)) a todas las 
personas interesadas en el mundo 
del AMSTRAD, sean o no poseedo- 
res de uno y, si Io son, se encuen- 
tren en cualquier nivel de destreza 
en su manejo. 
Semanalmente, aparecen en estas 
p6ginas las consultas de la mayor 
cantidad de usuarios posible; ella re- 
dundar6 en un mejor servicio yen 
un contacto m6s estrecho entre to- 
dos nosotros a trav6s de la revista. 
SIN DUDA ALGUNA est6 
abierta a todos. 

PROGRAMAS 
PROTEGIDOS 
Tengo dos cuestiones clue haceros: 
1.° Me gustarfa saber c6mo se 
puede salvar en una cinta un progra- 
ma protegido. Par supuesto que no 
es para dedicarme a piratearlos 
(aunque no me cre6is). Simplemen- 
tees que al vet vuestro especial con 
los Diez AAe/ores /uegos, decidf com- 
prarme el de ¢¢Fighting Warriors>. 
Pues no Ilevaba ni dos d[as con 61 
cuando se mc enred6 la cinta en "el 
rodillo y par supuesto se fue a la po- 
rra. Os pod6is imaginar c6mo me 
qued6 despu6s de haber pagado 
2.300 ptas. y no haber disfrutado del 
juego. As[ pues, recurro a vosotros 
para que me digdds c6mo copiar esos 
programas. 
Par si as cabe alguna duda de mi 
honradez, as he de decir que ningu- 
no de mis amigos tiene ordenador y 
de algunos conocidos que s[ que tie- 
nen, no son Amstrat[ Si no as pare- 
ce 6tico publicar la manera de copiar 
un programa en el MICROHOBBY, 
pues entonces mandarme la soluci6n 
a las sefias que as ad/unto. 

2. o La segunda cuesti6n es: c6- 
mo puedo conectar rni Amstrad a 
una cadena de sonido. 
Ifiakl Erdoiza 

En primer lugar debemos decirte 
que par supuesto en ningOn momen- 
ta podemos dudar de la honradez de 
nuestros lectores. Respecto a la pre- 
, gunta que nos formulas sabre la po- 
sibilidad de hacer una copia de un 
programa comercial, debemos decir- 
te que dichos programas estcn muy 
bien protegidos, y que el Onico me- 
dia de poderlos copiar es deprote- 
gerlos, cosa realmente complicada 
en muchos de dichos programas. 
Respecto a tu segunda pregunta, 
Onicamente debes conectar la clavi- 
ja de tu cadena a la salida de est6- 
reo que se encuentra en la parte la- 
teral izquierda de tu ordenador. 

COLORES, MODOS, 
SONIDOS Y BASIC 
Os escribo esta carta para que me 
aclar6is unas dudas sabre el Ares. 
trod CPC 464: 
Qu6 significa que el Amstrad s6- 
Io puede utilizar dos colores en mo- 
do 2 y cuatro colores en modo 1 y 
16 en modo O? 
Cudntos colores puede tener den- 
tro de un mismo cardcter? dos o 
mds? 
Es comparable el sonido del Arns- 
trod con el del CommodoreS. 
EI Basic de/Amstrad es m5s rdpi- 
do que el del SpectrumS. 
Os agradecer[a que me respandie- 
rais claramente a la primera pregun- 
_ta sabre todo. 
Lino GonzMez Lpez 

Como todos sabemos, el Ams- 
trod tiene distintos modos de resolu- 
ci6n, en los cuales se pueden utilizar 
distinto n0mero de colores. En el mo- 
do de m6s alta resoluci6n (modo 2), 
0nicamente est6n disponibles dos co- 
lores, en el siguiente modo (modo 1), 
tenemos cuatro colores y en el too- 
do de menor resoluci6n se disponen 
de 16 colores. 
Dentro de un mismo car6cter 0ni- 
camente se puede obtener un color. 
El sonido del Amstrad es tan bue- 
no como Io pueda set en el Commo- 
dore. 
El Locomotive Basic es uno de los 
m6s potentes que existe en este mo- 
menta. 

INCOMPATIBLES NO, 
GRACIAS 
Poseo un CPC 464 y quisiera cam- 
biado par el CPC 6128. El mayor 
problema que se me plantea es la 
posible incompatibilidad de los pro- 
gramas que actualmente poseo. 
Concretamente el que rags me preo- 
cupa es el AMSWORD Ih 
Quisiera saber si Io puedo cargar 
en el 6128, ya sea a trav6s de una 
copia en disco o par un cassette. Sea 
cual fuera la respuesta, quisiera que 
me orientaseis sabre un procesador 
de textas de la magnitud y calidad 
del AMSWORD II para el CPC 6128. 
Luis Gutirrez Alvarez 

El AMSWORD II si'puede usarse 
con un 6128, pero, dado que se tra- 
ta de un programa relativamente an- 
tigua, no est6 diseado para apro- 
vechar al m6ximo el segundo banco 
de memoria del 6128. En nuestro 
pais, Ofites Inform6tica comercializa 
y distribuye un procesador de textos, 
el TASWORD II, que si es capaz de 
utilizar dicho banco; esto te permiti- 
r6 hasta 64 K de texto on line y una 
mayor velocidad de impresi6n. 

GENERAClON 
DE CARACTERES 
Soy un usuario de un Amstrad 
CPC 6128. El Amstrad, tiene carac- 
teres grdficos que no son accesibles 
a trav6s del teclado, coma no sea 
con la instrucci6n CHR$(nmero). Mi 
pregunta es: 
C6mo se podHa tener acceso a 
Io demos caracteres desde el tecla- 
do sin tener que usar la instrucci6n 
CHR$? 
Ya queen un progama publica- 
do en la revsta MICROHOBBY AM$- 
TRAD, se presenta el s[gu[ente caso: 
FR = 440"(2¢0 + ((P-- 10)/12))) 
El carcfer .... no es occesible des- 
de el feclado. Agrodecer[o que con- 
testaran Io mSs r6pido posible. 
$.0. G. 

Los caracteres superiores al c6di- 
go ASCII, en general, no son accesi- 
bles desde teclado, par Io que la for- 
ma m6s f6cil de obtenerlos es utili- 
zando el comando CHRS. 
En cuanto al caso que nos comen- 
ta, suponemos se refiere al signo de 
exponenciaci6n, el cual puede obte- 
nerse pulsando simuh6neamente las 
teclas MAYS+ Pt. 
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Nuevamente tratamos en esta secci6n las cadenas de caracteres. En esta ocasi6n 
analizamos un programa que mediante los comandos RIGHTS y LEFTS (y mucho ingenio) 
invierte las letras de la palabra clue le digamos. 

ml programa en si es 
bastante sencillo. Una vez introducida la pao 
labra se descompone en sus letras qu son al- 
macenadas en los elementos de una matriz, 
se analiza par los comandos anteriores y me- 
diante GOTOs se invierte. 
Empleamos Io queen programaci6n se lla- 
ma recursividad esto quiere decir que 
una de las rutinas que forman el programa se 
llama a si misma. Lo que implica qua hay que 
darle una condici6n de salida ya quesi no es- 
taria asi indefinidamente. 
Despus se realiza el proceso de inversi6n 
y aparecen en pantalla la palabra primitiva 
y su inversa. 
10-50 Los REMs de siempre que has indi- 
can el titulo. 
60 REM con el que comienza el programa 
principal. 
70 Se limpia la pantalla. 
80 Con INPUT se nos pregunta cul es la 
palabra que queremos invertir. La expresi6n 
literal introducida es asignada a la variable 
palabraS. 
90-120 Llamadas alas distintas subrutinas 
creadas para realizar acciones concretas. Es° 

t6n ordenadas segOn sea necesaria su ejecu- 
ci6n. 
130 Fin del programa principal. Esta ins- 
trucci6n sirve tambi6n para detener el mismo 
e impedir que la ejecuci6n continge par la pri- 
mera subrutina. 
140 Comentario quenos indica d6nde co° 
mienza la rutina quenos visualizar6 los resulo 
tados obtenidos. 
! 50-180 Son las encargadas de sacar en 
bonito todo Io que ha trabajado el progra- 
ma. El texto Io escribe con tinta 1 amari//a), 
la palabra a la que hemos dado la vuelta con 
tinta 3 (ro/o bri//ante) y la invertida con tinta 
2 (cyan intenso), 
190 Sirve para asignarle a la pluma el nO- 
mero de tinta qua tenia en un principio (s61o 
para evitar sorpresas). 
200 Fin de la subrutina de {<escritura de re- 
sultados>. Devuelve el control al programa 
principal. Los RETURNs de las Iineas 260, 330 
y 380 actOan de un modo semejante con ca- 
da una de las rutinas donde est6n contenidos. 
210 Informaci6n, c6mo no, del comienzo 
de una nueva subrutina: la de componer la pa- 
labra inversa. 
220 Comienza del bucle WHILE... WEND 
quenos permitir6 componer letra a letra el in- 
verso de la palabra introducida. 
230 Comenzando par la Oltima, almace- 
namos en <4nversoS la concatenaci6n de un 

r 

grupo de letras, ya invertidas, con la conteni- 
da en el elemento anterior de la matriz 
letraS. Es el indicado par contadorh 
2/10 Se decrementa el valor de contador 
para poder salir del bucle cuando sea igual 
aO. 
250 Fin del mismo. 
270-280 REM indicativo de que ahi co- 
mienza la rutina de deletreo. Adem5s nos in- 
farina que es recursiva, ya veremos par qua. 
290 Incrementamos la variable conta- 
dor que, comenzando desde cero, nos va 
a servir para anotar el indice de cada una de 
las letras de nuestra palabra (o cantidad de 
veces que Ilamamos a la rutina recursivamen- 
te). 
300 Se define otra, longitud, coma el nO° 
mero total de caracteres de qua consta la va- 
riable <imagenS. 
310 Asignamos al elemento de indice con- 
tador de la matriz detra$ el car6cter que 
ocupa el primer lugar a la izquierda de Io que 
quede del duplicado de la palabra introduci- 
da. 
320 Si la Iongitud de la palabra es distinta 
de 1, quitamos a <imagen$ su primera letra, 
la ya almacenada, o la Oltima empezando par 
la derecha. RIGHTS se encarga de hacerlo sin 
ningOn problema. 
Y Ilamamos de nuevo a la rutina de dele- 
treo pero esta vez desde si misma para repe- 
tir el proceso con el nuevo contenido de 
dmagen$. Esto es la recursividad. 
Cudnda termAnard asia cadena de llama- 
dash. En el momenta en qua la Iongitud de la 
imagen quede en un car6cter. Entonces vol- 
veremos al programa principal. 
340 Comienzo de la rutina de inicializar 
datos. 
350 Dimensiona la matriz detraS que ten- 
drg un nOmero de elementos igual a la Iongi- 
tud de la cadena literal (LEN (palabraS)). 
360 Formamos una imagen auxiliar de la 
palabra para trabajar con ella sin perder la 
original. 
370 Inicializamos los valores de conta- 
dor y de inverso$ que m6s tarde con- 
tendr6 la palabra invertida. 
,;' .j/- ,,1 



Mercad.o 
comun 

Con el objeto de fomentar las rela- 
ciones entre los usuarios de AMSTRAD, 
MERCADO COMUN te ofrece sus p6gi- 
has para publicar los pequeos anuncios 
que relacionados con el ordenador y su 
mundo se ajusten al formato indicado a 
continuaci6n. 
En MERCADO COMUN tienen cabida, 
anuncios de ventas, compras, clubs de 
usuarios de AMSTRAD, programadores, 
y en general cualquier clase de anuncio 
que pueda servir de utilidad a nuestros 
lectores. 
Envlanos tu anuncio mecanografiado 
a: HOBBY PRESS, S.A. 
AMSTRAD SEMANAL. 
Apartado de correos 54.062 
28080 MADRID 
iABSTENERSE PIRATAS! 

Vendo los libros <Hacia la Inteligencia 
Artificial con Amstrad)) y MOsica y 
sonidos con Amstracl>. Tambi6n los 
siguientes juegos (versiones originales): 
Southern Belle; Dragontorc; Jump Jet; 
Beach Head; Alien 8; Exploding Fist; 
Decathlon; Rocky; Batalla de Midway;. 
Asimismo entrego cuatro cintas virgenes 
C-15 y vendo todo el paquete por s61o 
3.000 ptas. Interesados Ilamar al 
I988) 74 41 38 y preguntar por Dani. 

Vendo ZX Spectrum de 48K, impresora 
ZX Printer con papel, interface serie RS 
232, interface joystick, microdrive con 
cartucho y varias cintas con juegos y 
utilidades. Se incluyen cables, accesorios y 
manuales completos. Est6 totalmente nuevo 
y se entrega embalado en sus cajas 
originales por solamente 25.000 ptas. 
URGE. Interesados Ilamar al 
(988) 74 41 38 y preguntar por Dani. 

Vendo Amstrad CPC 464 con 
monitor F. verde. Incluyo manual en 
castellano y 8 programas onginales. Seis 
meses de uso. Perfecto estado. Todo por 
S0.000 ptas. Tel. (96) 333 24 92. 
Preguntar por Guillermo. 

34 :,,coHoss," AMSTRAD 

Vendo videojuego Trensi pora TV 
blanco & negro y color. Dispone de tenis, 
hockey, front6n, squash, tiro al blanco y 
tiro al plato. Se entrega con los dos 
mandos para los jugadores, rifle 
desmontable, alimentador e instrucciones. 
Est en perfecto estado y Io vendo por tan 
s61o 5.000 ptas. Interesados Ilamar al 
(988) 74 41 38 y preguntar por Dani. 

Vendo ordenador de bolsillo & 
calculadora CASIO PB 100, con unidad 
central, teclado, pantalla y alimentaci6n en 
una sola pieza. Se incluye un amplio 
manual de instrucciones y un libro de 
programaci6n BASIC PB 100 (ambos en 
castellano), asi comB una funda protectora 
y dos pilas de litio CR 2032. Est 
absolutamente nueva y la vendo pot tan 
s61o 4.000 ptas. Interesados Ilamar al 
(988) 74 41 38 y preguntar pot Dani. 

Vendo Amstrad CPC 6128 con 
monitor f6sforo verde. Reci6n comprado_ 
con garantia oficial de AMSTRAD ESPANA. 
Adjunto programas de regalo (10dicos y de 
utilidades). Todo pot s61o 89.900 ptas. 
Interesados Ilamar al (972) 31 53 86. 
Preguntar pot Miquel entre las 14 y 16 
horas. O bien escribir a: Miquel Gasull. 
Alvaro de Baz6n, 2. Palam6s (Gerona). 

DeseaHa cambiar el Everyone's a 
Wally (original), por uno de estos titulos: 
Dragonthorc; Exploding fist; Pole Position; 
Southern Belle; Stars Trike; Knight Lore; 
Beach Head I o Beach Head II. Tambin 
me interesarian otros titulos. Gerona, 30, 
2. 0 San Adri de Bes6s (Barcelona). Tel. 
(93) 381 08 36. Preguntar por Fernando. 

Vendo Amstrad CPC 6128 con 128K 
RAM, monifor de f6sforo verde y unidad 
de disco 3" incorporada. Se incluye: Disco 
con CPM 2.2 y lenguaje, Logo; Disco con 
CPM Plus y utilidades; Disco con siete 
programas diversos; Seis discos virgenes de 
3"; Manual en castellano; Joysctick 
Quickshot II; Fundas protectoras. Est6 
completamente nuevo y se entrega 
perfectamente embalado por s61o 60.000 
ptas. URGE. Interesados Ilamar el 
(988) 74 41 38 y preguntar por Dani. 

Vendo Amstrad 464 (monitor color); 
en perfecto estado y con garantia. Regalo 
30 juegos, un joystick, y 10 libros. Precio a. 
convenir. Escribir a: Galicia, 15 apt.601. 
Las Palmas de Gran Canaria. 

Cambio o vendo pot Amstrad CPC 
464 f6sforo verde o 50.000 ptas. por un 
Spectrum 48K dispuesto para su 
funcionamiento, con un cassette especial 
para ordenador m6s un interface tipo 
Kempston con salida de sonido por TV y su 
joystick correspondiente. Adem6s todas las 
revistas de: Todospectrum, Microhobby, 
Micromania, Input. Tambi6n un libro de 
Basic, uno de c6digo m6quina, y uno de 
juegos. Incluyo en el Iote 300 juegos 
educativos, recreativos y culturales cuyo 
valor es de 500.000 ptas. y tambi6n todos 
los copiones existentes: Mikie, Zorro, 
Rambo, Comando ol6 toro, Paradise, Alien 
8, Rocky, Exploding fist, Conlabilidad 
dom6stica, Gens 3, Mons 3, Paintbox, Tans 
Spress, Baudcopy, Gmnycopy, Editor, Beta 
Basic 3/0, Logo, etc. Llamar al tel. 
375 28 81. Barcelona. Manuel Roman 
Guerrero. Durazno, 1, 5. ° puerta 42 
Cornell6 de Llobregat (Barcelona). 

Vendo impresora SEIKOSHA grfica 
GP-80M, Paralelo Centronics matriz 5×7; 
30 cps. 80 caracteres por linea. Tracci6n. 
Ideal para SPECTRUM (comprando 
interface) para Amstrad (no trabaja en 
modo gr6fico). Precio 18.000 ptas. Paco. 
Tel. ,958) 60 52 95. 

Tengo monitor f6sforo verde GT65, y 
desearia cambiarlo por monitor color, 
pagando diferencia justa. Interesados 
Ilamar al tel6fono 72 16 86 de Sevilla, y 
preguntar por Federico Noa Cruz. 

COMERCIAL LEVANTE 
BAZAR TETUAN 
nistribuidor oliciel de Amstrad, Spectavideo. 

Oynadata, Toshiba. etc. 
-- A.'ISTRAD 6128 VERgE.DISCO 84.5(10 PTAS. 
- AMSTRAD 6128 COLOR.DISCO 119.5(10 PTAS. 
-- A,'ISTRAD PC','v 8256 129.0(10 PTAS 
-- AMSTRAD 472 VERDE-CASSET 59.(XI0 PTAS 
-- Ak,ISTRAD 472 COLOR CASSET 90.00 PTAS 
-- ORDENADOR DYNADATA 
-- {)PC 200.64 K 34 O(10 PTAS 
-- IVPRESORA BROTHER M 1009 36.00 PTAS. 
-- [%'PRESORA BROTHER HR.S 21.000 PTAS 
-- JOYSTICK INVEST K 1.200 PTAS. 
-- JOYSTICK BUICK SHOT II 1.600 PTAS. 
IVA INCLUIC'O 

SERVICIO TECNICO 
Atenal. g. 28{)13 MADRID Tel.: 265 68 SS 



En tu kiosco te espera 

algo muy inteligente 

E1 AMSTRAD Especial nfimc- 
ro 2 incluye una cinta de cas- 
sette adherida a la portada con 
un lenguaje l,isp completo que 

tc pcrmitifi comprender y do- 
minar las lcnicas mils comple- 
jas de inteligencia artificial. 
POl si fuera poco, cn nuestra 

ATENCION '  i; *  
FABULOSO 0 ' *" 
PUEDES GANAR UN 
CPC-612: ON 
SOLO CARGAR LA C T4 

cinta se incluyen tambien dos 
concursos: uno, de discfio grfi- 
rico de pamallas, para aMistas, 
te permitir ganar hasta 
170.000 pcscas en premios. En 
el segundo regalamos un orde- 
nador Amstrad CPC6128. 
El nOmcro 2 de AMSTRAD 
Especial trata un amplio espcc- 
tro de interesanlcs [emas, co- 
mo un comparativo de impre- 
sofas, que lc ayudaff a elcgir 
la mds adccuada a sus neccsi- 
dadcs, como mul[itud de pro- 
gramas y rtninas de utilidad en 
lcnguajc mdquina como un pa- 
quote de soft integrado, con 
trcs programas ell tHlO y tm lar- 
,,o etcetera que seria demasia- 
do prolijo detallar. 
Si no !o encuentras en tu kiosco, 
solicilalo directamenle 
a nuestra Editorial. 



paga uno y lie 

ate cuatro 

AMSTRAD 

COMBAT LINX 
GREMLINS 
DUMMY RUM 
DRAGONTORC 
MATCH DAY 
BASEBALL 
FIGHTING WARRIOR 
MAP GAME 
YIE AR KUNG-FU 
HYPERSPORTS 
ZORRO 
SUPERTEST 
PING-PONG 

COMMODORE MSX 

BASEBALL 
DROPZONE 
BEACH HEAD 
HYPERSPORTS 
SUPER ZAXXON 
FIGHTING WARRIOR 
SPY HUNTER 
TAPPER 
BC-II 
BOUNTY BOB 
POLE POSITION 

BRUCE LEE COSMIC WARTOAD 
DISC WARRIOR RAID OVER MOSCOW N.O.M.A.D. 
JET SET WILLY II BASEBALL BATrLE OF PLANETS 
SHOW JUMPER DRAGONTORC DYNAMITE DAN 
 ASTROCLONE LEYENDA AMAZONAS 
GYROSCOPE BRIAN BLOODAXE 
SPECTRUM MAP GAME PSYTRAXX 
ZAXXON ZORRO 
FRANKIE 
BLUE MAX 

y mil titulos m6s 

ptas. 
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BRAVO MURILLO, 2 DIEGO DE LEON, 25 AV. FELIPE II, 12 
(Glorieta de Quevede) (Esq. NQ6ez de Balboa) (Metro Goya) 
Tel. 446 62 31 - 28015 MADRID Tel. 261 88 01 - 28006 MADRID TeL 431 32 33 - 28009 MADRID 
Aparcamiento GRATUITO Magallanes, 1 Aparcamiento GRATUITO Nfiez de Balboa, 114 Aparcamiento GRATUITO Av. Felipe II 



